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CAPITULO 1 


1.1. Programas.—Para que un ordenador realice lo que nosotros 
queremos, teniendo presentes sus posibilidades y limitaciones, debemos 
comunicarle cuáles son nuestros deseos; esto exige un lenguaje como 
vehículo de esta comunicación. En nuestro caso este lenguaje es el BASIC, 
uno de los muchos lenguajes existentes y quizás el más fácil de aprender; 
contiene sólo unas pocas decenas de palabras y reglas de sintáxis, muy 
elementales y lógicas pero inflexibles. 

El ordenador sólo aceptará el BASIC si es perfecto, las instrucciones 
deberán ser correctas y estar en el orden preciso. 

Como es lógico suponer, para resolver o tratar un problema por 
ordenador, necesitamos: . | 


—Conocer un método de resolución de este problema, que llamaremos 
algoritmo. 
—Escribir este algoritmo en el lenguaje que entienda el ordenador. 


1.2. Algoritmos.—Un algoritmo es una secuencia de instrucciones, 
dadas paso a paso, que permiten solucionar un- problema. 

Aunque pueda parecer bastante complejo lo anterior, en la vida 
corriente utilizamos constantemente los algoritmos, pero sin tener concien- 
cia de ello en muchas ocasiones. Veamos una serie de ejemplos, para así 
entender perfectamente dicho concepto. 


Ejemplo 1: El más sencillo y usual algoritmo es la receta de cocina; si el 
problema a solucionar es hacer una tortilla francesa, las instrucciones que 
debemos seguir paso a paso son: 


1) Tomar un huevo y un poco de sal. 
2) Batir el huevo y añadirle la sal. 

3) Echar el aceite en la sartén. 

4) Calentar el aceite. 

5) Echar el huevo batido en la sartén. 
6) Cuando esté a tu gusto, servirlo. 

7) Apagar el fuego. 

8) Fin. 


Ejemplo 2: Si tenemos una rueda del coche pinchada, el algoritmo a 
seguir para repararla sería el siguiente: 


1) Elevar el coche con el gato. 

2) Soltar los tornillos de la rueda. 
3) Quitar la rueda. 

4) Poner la nueva de repuesto. 

5) Apretar los tornillos. 

6) Descender el coche. 

7) Fin. 


Ejemplo 3: Veamos el algoritmo de Euclides, que permite calcular el 
máximo común divisor de dos números a y b; los pasos a seguir son: 


1) Dividir a por b. 

2) Tomar el resto de la división, le llamaremos 7. 
3) Si r+*9 hacemos a=b y b=r,y volvemos a 1). 
4) El mcd(a, b)= bh. 

5) Fin. 


Ejemplo 4: Un juego que admite un algoritmo sencillo, para que gane el 
jugador que empieza a jugar, es el “juego de las 15 cerillas”. Se empieza el 
juego con 15 cerillas y cada uno de los jugadores toma sucesivamente 1, 2 
o 3 cerillas, a su elección. Pierde el jugador que debe tomar forzosamente la 
última cerilla. El algoritmo que debe seguir el primer jugador es: 


1) Toma dos cerillas. 

2) El otro jugador toma K cerillas. 

3) Si quedan cerillas, el jugador primero toma 4 — K y se vuelve a 2). 
4) Fin. 


Ejemplo 5: La obtención industrial de elementos o compuestos químicos 
sigue un algoritmo bastante definido. Por ejemplo, para obtener oxígeno 
mediante destilación del aire se sigue el siguiente: 


1) Se licua el aire. 

2) Se destila en una columna de fraccionamiento. 
3) Se separa el nitrógeno. 

4) Se destila el oxígeno. 

5) Fin. 


Ejemplo 6: También sigue un claro algoritmo la formación de los 
tiempos verbales en los verbos regulares. Veamos, por ejemplo, el seguido 
para escribir el presente de indicativo de un verbo de la 1.* conjugación: 


1) Obtener la raíz quitando la terminación -ar. 

2) Añadir a la raíz las terminaciones -o, -as, -a, -amos, -ais, -an. 

3) Escribir las palabras obtenidas en 2). 

4) Fin. 

Vistos los ejemplos anteriores, no necesita siquiera comentario el hecho 
de que las propiedades fundamentales que debe poseer todo algoritmo son: 


—Estar formando por un número finito de pasos. 

—Las instrucciones no deben admitir ambigúedades, tienen que estar 
perfectamente claras. 

—Ha de solucionar problemas generales, no sólo un único problema. 
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EJERCICIOS 


1. Hallar un algoritmo que describa la búsqueda del teléfono de una 
persona conociendo su dirección y nombre. 


2. Hacer un algoritmo que ordene alfabéticamente una serie de fichas 
en un fichero. 


3. Construir un algoritmo que permita calcular cuál es el mayor de un 
conjunto dado de números. 


4. Hallar un algoritmo para saber si un número de 6 cifras es capicua. 


5. Encontrar un algoritmo que permita escribir los 10Mf primeros 
términos de la sucesión de números impares. 


6. Buscar un algoritmo que permita conocer si un número n es primo. 


7. Estamos junto a una fuente y tenemos dos latas: una de 5 litros y 
otra de 4 litros. Hallar un algoritmo que describa el método para poder 
llevarnos 6 litros exactamente. 


8. Un grupo de soldados tiene que pasar un río, junto a ellos hay dos 
niños con un bote muy pequeño, en el cual caben los dos niños o un 
soldado. Encontrar un algoritmo que describa cómo cruzan el río los 
soldados. 


9. Otro problema de paso a través de un río, muy conocido, es el 
siguiente: Un hombre ha de pasar un río, llevando consigo un lobo, una 
oveja y una paca de hierba. Tiene un bote muy pequeño en el que sólo 
caben él y únicamente uno de sus 3 acompañantes. Construir un algoritmo 
que describa el cruce del río, teniendo en cuenta que no puede dejar solos 
ni al lobofH4 la oveja, ni a la oveja con la hierba. 
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CAPITULO 2 


EMPEZANDO CON EL BASIC 


Lo visto en el capítulo anterior se puede aplicar a cualquier lenguaje de 
programación; a partir de este capítulo comenzamos a estudiar BASIC. 

Los caracteres, o signos, empleados en este lenguaje pueden ser de 
varios tipos: 


1. ALFABETICOS a, b, c, ..., X, y, z; tanto mayúsculas como minúsculas. 

2. NUMERICOS: Dígitos del f al 9; distinguiendo el cero del carácter 
alfabético “0”. Aunque nuestra HO pIesonan no los diferencia. 

3. ESPECIALES: “,/,(,)¿,.. 


2.1. Variables y constantes.—Ya hemos visto en el capítulo anterior 
como algunas letras nos servían para expresar una cantidad, que podía 
permanecer constante o variar a lo largo del algoritmo. 

Las variables o constantes que emplearemos en el Spectrum no sólo 
serán numéricas sino que también podrán ser alfanuméricas. En las 
primeras sólo aparecerán números y en las segundas aparecerán caracteres 
de cualquiera de los 3 tipos vistos anteriormente. 

El nombre que asignaremos a las variables numéricas será un carácter 
alfabético seguido, o no, de más caracteres alfanuméricos. Así, por ejemplo, 
el nombre de una variable numérica puede ser: 


A, Al, b25, ab2,.......... 


Sin embargo, si la variable es alfanumérica entonces le asignaremos un 
carácter alfabético seguido del carácter especial $ (símbolo del dólar); por 
ejemplo, el nombre de una variable alfanumérica puede ser: 


23.89 Uranio 


Todo lo expuesto anteriormente es válido para el Spectrum, pero puede 
haber variaciones para otros ordenadores. Los hay, por ejemplo, que no 
admiten más de 2 caracteres para designar una variable: no admitirían 
AB12 o considerarían esta variable como si fuese AB. A la hora de designar 
una variable, el Spectrum no distingue entre mayúsculas y minúsculas; es 
decir, para él es exactamente igual a que A y a$ que A4$. 
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2.2. Instrucción o sentencia.—Se llama instrucción o sentencia a toda 
orden que se le da al ordenador. Cada instrucción está compuesta, en 
general, de 2 partes: 


1. Un COMANDO, que es la orden propiamente dicha. 

2. Un ARGUMENTO, que es el dato, o datos, implicado en dicha orden. 
Puede ser una constante, una variable o cualquier expresión factible 
de ser evaluada. 


Ejemplo 1: a) PRINT 2, es una instrucción que hace que se imprima en 
pantalla el número 2. PRINT es el comando; 2 es el argumento. 

b) LET A =5, es una sentencia que le asigna a A el valor 5. LET es el 
comando; A = 5 es el argumento. 

c) Hay instrucciones que no necesitan argumento, como, por ejemplo, 
CLS que borra la pantalla del ordenador. 


2.3. Operadores aritméticos.—Emplearemos diversos tipos de ope- 
radores; los más elementales son los aritméticos, que, como su nombre 
indica, realizan las operaciones aritméticas. Son los siguientes: 


+ SUMA 

— RESTA 

* MULTIPLICACION 
/ DIVISION 
t POTENCIACION 


Nota: La impresora utilizada emplea a veces el carácter en lugar del 
carácter !. 

Cuando en una misma expresión aparecen varios operadores, existe un 
orden de prioridad, similar al que empleamos habitualmente. Este orden es: 


1.2 La potenciación. 
2.2 El producto y la división. 
3.2 La suma y la resta. 


Si dos operadores tienen la misma prioridad se realiza primero la 
operación situada más a la izquierda en la expresión. 

Ejemplo 2: Si queremos que el ordenador calcule 3 + 6 * 5/2 — 3 1 2; 
primero efectúa la potencia 3 + 6 * 5/2 — 9; después el producto 3 + 30/2 — 
9; luego el cociente 3 + 15 — 9, y para acabar, las sumas y restas, dando 
como resultado 9. 


Estas prioridades se pueden alterar con el uso de paréntesis. Así, en la 
expresión: 


2*(3+5)12 


primero evalúa el paréntesis: 2 * 8 t 2, luego efectúa la potencia: 2 * 64, y 
por último el producto, obteniéndose 128. 


Nota: En lugar de la “coma decimal”, en el ordenador emplearemos el 
“punto decimal”; así, 2,3 se escribirá 2.3. 
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Ejemplo 3: Veamos cómo se efectúa el cálculo de la siguiente expresión: 
(Q3—1)*213/2—Q.5 
los pasos que sigue el ordenador son los siguientes: 
1.2 13*213/2—0.5 
22 13*82—Q.5 
3.2 10.4/2 —4.5 
42 520.5 
52 4.7 


También se puede emplear en el ordenador la llamada notación 
científica. Así: 


2.3E3 significa 2.3* 10 13 =2309 
390 E=2 significa 35*1P1t—2=P.P35 
—43E—1 significa — 4,3 * 181 — 1 =—.43 


2.4. Empleando el ordenador como calculadora.—Un ordenador puede 
trabajar de forma semejante a una calculadora corriente. Para que nos 
muestre en pantalla el resultado de una operación, por ejemplo 3 + 5, 
tendremos que teclear: 


PRINT 3+5 


y seguidamente pulsar la tecla ENTER para que la anterior instrucción sea 
ejecutada. Aparecerá en pantalla el resultado, y un mensaje de conformidad 
del tipo: O.K.,, READY, etc. 

Si después de la operación anterior tecleamos: 


PRINT 5*2 


seguido de ENTER, el nuevo resultado aparecerá en la línea siguiente, con 
lo que en pantalla tendremos: 


Mientras no se ordene de otra manera, cada vez que se encuentre con 
un PRINT lo que hace es saltar al comienzo de la línea siguiente, como si 
fuese una máquina de escribir. Sin embargo, esto se puede alterar de la 
siguiente forma: 

PRINT3 "3; y ENTER 

PRINT 5 *2 y ENTER 


apareciendo en pantalla: 
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esto es, cuando el ordenador se encuentra con una coma después de una 
instrucción PRINT, entonces al siguiente PRINT no salta una línea sino 
“media línea” únicamente. En otros ordenadores, este salto puede ser 
diferente, ya que dividen la pantalla en 3 o 4 partes en lugar de 2 como 
hace el Spectrum. 

A partir de ahora, vamos a suprimir el citar tan reiteradamente ENTER, 
ya que sabemos que para que cualquier instrucción se ejecute es 
imprescindible pulsar esa tecla. 


Notas: 1) En otros ordenadores, el comando ENTER (Entrar en, admitir, 
etc.) se designa por NEW LINE, RETURN, etc. 

2) Ya hemos visto que la instrucción que visualiza en pantalla es PRINT, 
palabra inglesa que significa “imprimir”. Este nombre tiene una razón 
histórica: los primeros ordenadores mostraban los resultados a través de 
una impresora, no en una pantalla. 

El Spectrum admite otra posibilidad para presentar datos en pantalla: el 
uso de la “coma superior” o “acento”, que imprime el valor de la derecha en 
la línea siguiente. Así, por ejemplo: 


PRINTS TES 2 
es equivalente al uso de las dos sentencias 


PRINT 3 +5 
PRINT 5 * 2 


También se pueden imprimir en pantalla textos; para conseguir esto hay 
que usar PRINT y, a continuación, el texto que deseemos imprimir escrito 
entre comillas. Así, por ejemplo: - 


PRINT “PEPE” seguido de ENTER 
muestra la siguiente pantalla: 


“PEPE 


El ordenador muestra todos los caracteres que se encuentran entre las 
comillas, sin incluir éstas, evidentemente. Así: 
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PRINT “12ab7BM” 
imprime 

12ab7BM 
Prueba a teclear PRINT “5 *7=”.5*7 
aparecerá 

5*7=35 


Es importante destacar que una expresión aritmética entre comillas se 
imprime tal como es, en cambio, si no lleva comillas se imprime el valor de 
dicha expresión. 


2.5. Instrucción LET.—La misión de LET (asignar, conceder, etc.) es 
asignar valores a las variables numéricas o alfanuméricas. Por tanto, adopta 
una de estas formas: 


LET A=15 O también, 
LET A$= “ISAAC” 


En ambos casos, si queremos que se ejecuten, tendrán que ir seguidas 
de ENTER. 

Se puede comprobar que esta asignación se ha efectuado realmente sin 
más que utilizar las sentencias: 

PRINT A y, PRINT AS 

Si ahora deseamos cambiar el valor de A, por ejemplo a 20, no tenemos 
más que poner: 

LET A=20 
y automáticamente la variable A pasará a valer 2, como se puede 
comprobar usando nuevamente PRINT. 


También se puede asignar a una variable un valor relacionado con otra 
ya definida; así, por ejemplo: 


LET B=A+2 
le da a la variable B el valor 22, ya que el valor de A era 20. 
E incluso admite expresiones del tipo 

LET B=B+1 


que, en este caso, aumenta el valor de B en una unidad; así, en este caso, B 
toma el valor 23. 

En otros ordenadores no es imprescindible el empleo de LET, asignando 
valores directamente: 


A=5 A$ = “ISAAC” 


EJERCICIOS 


10. ¿Qué resultado obtendremos en las siguientes operaciones: 
DELE 

ii) Q+3)*512 

10). 243582 

1). (AESESTL 


11. Escribe las instrucciones en BASIC que ejecutarían los siguientes 
cálculos: 


A 3 
1 e as mM 2+3 
des 6+15 15 
il) -—_—— mM 
2 Sut 2+1 
—4 +19 En 2 
+ ví) '”--—_um__ 
2.3 (3.5+2)14 
12. Teclear: 
PRINT 1'2'3 PRINT 1,2'3 
PRINT 1,2,3 PRINT 1;2,3 


y comparar los resultados. 


13. Dados los números 2.7 y 1.5 conseguir que aparezca en pantalla, 
con una sola instrucción, su suma, resta, producto y cociente. 


14. Con una serie de instrucciones haz que aparezca en pantalla la 
tabla de multiplicar del 9. Más adelante se estudiarán diversos proce- 
dimientos para reducir el número de instrucciones. 


15. Para ejercitarse en el uso de la notación decimal, ejecutar las 
siguientes instrucciones: 


PRINT 2.42 * 3.97 
PRINT 3.4113 
PRINT “la raíz cuadrada de £.5 es “£.5 t (1/2). 
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CAPITULO 3 


PRIMEROS PROGRAMAS 


3.1. Empezando a programar.—Hasta ahora, todas las instrucciones 
que le hemos dado al ordenador las ha ejecutado e inmediatamente las ha 
olvidado. Hay otra forma de proceder para conseguir que el ordenador las 
tenga presente aún después de ser ejecutadas: Introducir un número, 
llamado número de línea, delante de la instrucción. Teclea, por ejemplo: 


20 PRINT A 


y observarás que esta instrucción, junto con el número que la precede, sube 
a la parte alta de la pantalla y no se ejecuta inmediatamente sino que 
espera la orden oportuna. 

Si ahora tecleamos: 


10 LET A=25 


observamos que esta nueva línea también ha subido pero colocándose por 
encima de la anterior, debido a que tiene un número de línea inferior. 
Quedando en pantalla: 

10 LET A=25 

20 PRINT A 


El ordenador sigue esperando la orden de ejecución. Acabamos de ver 
nuestro primer programa. Llamaremos programa a un conjunto de 
instrucciones, precedidas de un número, que el ordenador ejecuta 
secuencialmente; es decir, ejecuta primero la línea de menor numeración y 
continua la ejecución en orden creciente. 


Nota: Advertir que no influye el orden en que hayamos introducido las 
líneas, pues son ordenadas de menor a mayor automáticamente. 


Instrucción RUN: La orden de ejecución del programa puede ser una de 
estas: 


RUN (ejecuta el programa a partir de la línea de más baja 
numeración). 
RUN 1(f (ejecuta el programa desde la línea 10) 


Prueba nuestro primer programa con cualquiera de estas dos posibilidades. 
Observarás que siempre se borra la pantalla y aparece impreso el número 
23 
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La instrucción RUN (correr, hacer funcionar, etc.) borra la pantalla y 
todas las variables que se hubiesen definido hasta ese momento, como 
podemos comprobar con el siguiente ejemplo: 


Ejemplo 1: Conservando el programa que tenemos en el ordenador, 
introduce la instrucción directa, sin número de línea: 


LET B=18 
y luego añade al programa la línea: 
20 PRINT E 
con lo que tendremos en pantalla: 


10 LET A=25 
20 PRINT A 
30 PRINT B 


Si ejecutamos, con RUN, este programa obtenemos: 


i) lai impresión del número 25, como resultado de las 2 primeras líneas. 

ii) un mensaje de error: 2 Variable not found, 3f/: 1; que corresponde a 
la línea 3f ya que la variable B no está definida, por haber sido 
olvidado su valor al emplear RUN. 


Notas: 1) En otros ordenadores, cuando una variable no está definida se 
le asigna automáticamente el valor f; por lo que el programa anterior no 
daría mensaje de error y mostraría en pantalla: 


25 
Y 


2) Destaquemos y recordemos la diferencia que hay entre una 
instrucción como PRINT 3 — 7, sin número de línea, y la 1f PRINT 3 — 7. 


En el primer caso, cada vez que necesitemos obtener el resultado de la 
operación tendremos que repetir la instrucción; en el segundo, se guarda en 
memoria y podremos ejecutarla tantas veces como queramos. 

3) En el Spectrum, el número de línea puede ser cualquier número 
entero comprendido entre 1 y 9999, aunque en otros ordenadores hay 
todavía más posibilidades. 

Una práctica muy habitual entre los programadores, es ir numerando 
las líneas de 10 en 1(f y, de esta forma, se deja siempre abierta la puerta 
para una posterior modificación del programa insertando nuevas líneas en 
cualquier momento. E 

En el mercado se dispone de programas RENUMERADORES, con los 
que una vez escrito el programa se pueden cambiar los números de línea. 

4) Dentro de una misma línea de programa se pueden meter varias 
instrucciones separadas entre sí por 2 puntos. Tiene la ventaja de consumir 
menos memoria, ya que por cada línea nueva se consumen 5 octetos y los 
dos puntos sólo consumen 1 octeto. Por ejemplo, admite líneas de la forma: 


10 LET ÁA=6: LET B=S:2 PRINT A-B 


20 


en lugar de: 10 LET A=6 
20 LET B=5 
ZO PRINT A-B 
Instrucción NEW: Si tenemos un programa en el ordenador y queremos 
introducir otro, tenemos varias opciones: 


1) Desenchufar el ordenador. 

2) Borrar todas las líneas, para lo cual hay que escribir el número de la 
línea y pulsar ENTER. Como ejercicio borra de esta forma el 
programa anterior. 

3) Con el comando NEW (nuevo, renovado), que destruye todo el 
programa y todas las variables, borrando además la pantalla. 


Instrucción STOP: Como su nombre indica (parar, detener), si 
introducimos esta instrucción en una línea de un programa al ejecutarlo se 
detiene en dicha línea. 


Ejemplo 2: Consideremos el siguiente programa: 


10 LET A=1: LET B=2 
20 PRINT A/B 

320 STOP 

40 PRINT B-A 

30 STOP 


en pantalla sólo aparecerá (.5, ya que el programa se detiene en la línea 30 
sin ejecutar las líneas 40 y 50. 


Nota: Algunos ordenadores distinguen entre las instrucciones STOP y 
END, que no aparece en el Spectrum. STOP puede surgir varias veces a lo 
largo del programa, mientras que END sólo aparece al final de éste, ya que 
esta instrucción es útil únicamente para trabajar con terminales de un 
mismo ordenador. 


Instrucción INPUT: Si deseamos elaborar un programa que calcule el 
área de un cuadrado de lado 5, nos es válido el siguiente: 


10 LET A=5 
ZO PRINT "EL AREA ES "¡AXA 
30 STOF 


Si deseasemos calcular ahora el área de un cuadrado de lado 72, 
deberíamos sustituir la línea 19 por 


10 LET A=72 


Si lo que nos interesa es calcular el área de un cuadrado cualquiera, 
dado su lado, éste método es muy lento. Hay una instrucción que nos 
permite trabajar mucho más rápida y comodamente: INPUT (poner en, 
colocar en, introducir). 

Su expresión general es: 


(Núm. de línea) INPUT (nombre de la variable) 
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La instrucción INPUT a, hace que el ordenador espere un dato, en este 
caso numérico, que le tendremos que suministrar por el teclado y que 
quedará asignado a la variable a. Por tanto, el programa del cálculo de la 
superficie de un cuadrado cualquiera quedará en la forma siguiente: 


10 INFUT A 
20 PRINT "EL AREA ES "3AxA 
20 STOP 


La instrucción INPUT A$ funciona de manera análoga pero con 
variables alfanuméricas. Por ejemplo, el siguiente programa escribirá en 
panta'¡a cualquier mensaje que le suministremos por el teclado: 

10 INFUT As 
20 PRINT As 
0 STOP 


Si después de un INPUT A le suministramos una variable alfanumérica 
nos dará un error del tipo: 


2 Variable not found 10:1 


En cambio, si como respuesta a un INPUT AS le suministramos un 
número, no lo considerará como tal número sino como una variable 
alfanumérica. 


Ejemplo 3: El siguiente programa calcula el producto y el cociente de 
dos números cualquiera. 
10 INFUT A 
ZO INPUT E 
320 PRINT "EL PRODUCTO ES "3AxB 
40 PRINT "EL COCIENTE ES "3A/B 
50 STOP 


Nota: En el Spectrum cuando se solicita un dato alfanumérico el cursor 
aparece en la parte inferior entre comillas. Estas desaparecen cuando el 
dato a introducir es numérico. 

Evidentemente, el autor de un programa al ejecutarlo conoce el 
significado de cada dato y su orden de introducción; sin embargo, la 
persona que utilice este programa puede desconocer dichos significados. 
Para remediar esta situación, la instrucción INPUT admite la posibilidad de 
intercalar un texto previo a la introducción de datos, pudiéndose escribir el 
programa del ejemplo 3 en la forma: 

10 INPUT "ESCRIBE El PRIMER NUMERO "3A 
ZO INPUT "ESCRIBE EL SEGUNDO NUMERO ";E 
30 PRINT "El PRODUCTO ES "3AxXB 

40 PRINT "EL COCIENTE ES "5A/B 

50 STOP 

No olvidar dejar los espacios finales en el texto de cada línea, pues 
mejoran la presentación. Como ejercicio, suprimir los espacios del programa 
anterior y observar el efecto producido. 

Notas: 1) Dentro de un mismo INPUT se puede pedir varios datos, que se 
separarán por una coma o por puntos y comas o por ambos. Por ejemplo: 
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10 INPUT A,B,C 
20 PRINT A+B+C 
30 STOP 


Comprobar el programa usando puntos y comas, y observar las 
diferencias en presentación. 


2) También es posible preceder cada uno de los datos con un mensaje: 


10 INPUT "PRIMER NUMERO "35A, "SEGUNDO NUMERO "5E 
20 PRINT A-E 
30 STOP 


3.2. Instrucción LIST.—Vacía con NEW la memoria del ordenador e 
introduce el programa: 
10 INPUT "CUANTOS VOLTIOS "3Y 
20 INPUT "CUANTOS OHMIOS "5R 
30 PRINT "LA INTENSIDAD ES "3V/R3" AMPERIOS" 
40 STOP 


Al ejecutarlo se nos pide el número de voltios, después el número de 
ohmios y finalmente imprime el número de amperios que circulan por la 
resistencia. 

En este momento, el listado (conjunto de todas las líneas que conforman 
un programa) no aparece en pantalla, aunque se encuentra en la:memoria 
del ordenador. Si queremos sacar en pantalla dicho listado, hay que 
presionar ENTER o bien LIST (listar, sacar la lista). 

Esta última instrucción puede emplearse de otra manera, por ejemplo: 


LIST 30 


muestra el listado desde la línea 30 hasta el final, esto es las líneas 30 y 40. 
En general, LIST n muestra el listado desde la línea n hasta la última. 

Lo que ocurre normalmente, cuando el programa es un poco extenso, es 
que no hay sitio en pantalla para poder representar todo el listado, ya que 
sólo admite el Spectrum 22 líneas como máximo. En estas circunstancias 
nos hace la pregunta: SCROLL? (enrollo?), si la respuesta es N, STOP o 
BREAK vuelve a sacar otro mensaje: 


D BREAK-CONT repeats, 0:1 


y ya no saca más líneas, pero si la respuesta es cualquier otra, seguirá 
sacando el listado en la pantalla. 


Notas: 1) En otros ordenadores hay más posibilidades, por ejemplo: 
LIST M-N o LIST M, N 

listará desde la línea número M hasta la línea número N; o también: 
LIST - M o LIST N- 


En el primer caso se da el listado desde el principio hasta la línea M, y 
en el segundo caso desde la línea N hasta el final. 

2) También hay ordenadores que efectúan el SCROLL de una manera 
automática, perdiéndose una línea por la parte superior cada vez que 
aparece una nueva línea por la parte inferior. 
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3.3. Tres nuevas instrucciones. — REM: Puede resultar chocante si 
afirmamos que hay una instrucción que el ordenador ignora y no hace 
nada con ella; esta instrucción es REM (Remark = nota). Su utilidad radica 
en que podemos añadir aclaraciones al listado de un programa para 
facilitar su comprensión, especialmente a una persona que no sea el autor. 


Ejemplo 4: 


10 REM ESTE FROGRAMA CALCULA LA SUPERFICIE DE UN 
IRCULO ¡ 

20 INPUT "ESCRIBE EL RADIO "53R 

30 PRINT "LA SUPERFICIE ES "5PIXR?2 

40 STOP 


CLS: La única misión de esta instrucción es borrar (CLear Screen) la 
pantalla, conservando los valores de las variables. 

Todos los ordenadores tiene una instrucción análoga aunque no tenga 
este mismo nombre. 

Comprueba como ejercicio el efecto de esta instrucción. 

CLEAR: Esta instrucción borra (clear = borrar, vaciar) la pantalla pero 
también olvida los valores de las variables; como podemos comprobar a 
continuación: 


10 LET A=20 
20 CLEAR 
20 PRINT A 
si ejecutamos este programa, aparece el mensaje: 
2 Variable not found, 30:1 


que quiere decir que se le ha mandado, en la línea 30, imprimir una 
variable que no estaba definida, ya que se ha borrado con CLEAR. 


3.4. Corrección de errores en el Spectrum.—Si se comete un error al 
escribir una línea, antes de presionar ENTER, se puede corregir con el 
empleo de CAPS SHIFT y DELETE. 

Veamos como hacerlo: 


Supongamos que hemos escrito: 
10 INPUT “dane un números ”; n 
llevamos el cursor hacia la izquierda con 


CAPS SHIFT y <==z (tecla 5) presionando 4 veces, quedando de la 
forma: 


10 INPUT “dane un numeros e 


“«») 


ahora borramos la “s” con: 

CAPS SHIFT y DELETE (tecla Q) 
con lo que obtenemos 

10 INPUT “dane un numero de 
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, 


y, por último, para corregir la n y poner en su lugar la “m”: 
CAPS SHIFT y «<== (tecla 5) 

hasta que el cursor esté justo a la derecha de la “n” 
10 INPUT “dan e un número”; n 


«“u_»” 


y ahora, borramos la “n” con 
CAPS SHIFT y DELETE 
y escribimos la “m”, con lo cual la línea queda: 
10 INPUT “dam e un número”; n 
y ya podemos presionar ENTER para que suba a formar parte del listado. 


Hay que tener presente que con DELETE (dele = signo) se borra de 
derecha a izquierda, y que por lo tanto primero hay que colocar el cursor a 
la derecha de la parte a eliminar. 

Para corregir errores una vez que la línea ha subido a formar parte del 
listado, será preciso acudir a la instrucción EDIT (editar). 


EDIT: Quizás hayas observado que cada vez que se añade una nueva 
línea al listado de un programa, aparece en ésta el cursor del programa: > 
entre el número de línea y la instrucción propiamente dicha. 

Observemos el programa: 

10 REM SUPERFICIE LATERAL DE UN CILINDRO 
20 INPUT R 

350 INPUT "DAME LA ALTURA "5H 

40 PRINT 2*PIXR*H 

S0>STOP 

Si la última línea introducida es la 5f, es allí donde aparece el cursor del 
programa. Este cursor se puede desplazar hacia arriba presionando 
simultáneamente: 


CAPS SHIFT y ftecla 7) 
o bien, hacia abajo con: 
- CAPS SHIFT y |] (tecla 6) 


Si quiero situarlo en la línea 2f habrá que subir el cursor 3 veces; 
presionemos: 


CAPS SHIFT y EDIT (tecla 1) 


veremos que la línea en cuestión se ha “editado” en la parte inferior de la 
pantalla: 


20 [K] INPUT R 


ahora vamos a añadir un mensaje, por lo que desplazamos el cursor a 
la derecha del INPUT con: 


CAPS SHIFT y > (tecla 8) 
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quedando: 


29 INPUT R (el cursor ha cambiado de K a L) ahora, escribimos el 
mensaje: 


“dame el radio ”; 
y con ENTER ya ha quedado modificado el listado. 


Nota: Hay una manera, común a todos los ordenadores, de corregir 
líneas: escribir de nuevo, pero esta vez correctamente, la línea a corregir. 


EJERCICIOS 


16. ¿Qué efecto crees que va a tener la línea 20 en el programa 
siguiente?: 
10 LET A=X 
ZO CLEAR 
ZO PRINT A 


17. Escribe un programa que pida la distancia recorrida en un viaje y 
el tiempo empleado, y nos indique la velocidad media. 


18. Halla un programa que de la resistencia equivalente del circuito de 
la figura, para los diferentes valores de R1, R2, R3, R4: ? 


R, 
R 


19. ¿Qué sacará en pantalla este programa? 


k 


10 LET E=8 
20 LET B=81 
SO PRINT B 


- 20. Ejercítate con instrucciones del tipo: 
10 ¡PRINT "2-9="32=8 
es decir, que imprimen en pantalla la operación y su resultado. 


21. Sea el programa: 


10 INPUT A,B 
20 PRINT As"+"3B5"="3A+B 
30 PRINT As"X"5B5"="54x*B 
40 PRINT A5"/"5B5"="50/B 
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Prueba a introducir 25 PRINT, y observa el efecto; lo mismo con la línea 
35 PRINT. Observa también el efecto de PRINT”, PRINT ”........... 


22. Hacer un programa que pase de grados centígrados a Fahrenheit 
sabiendo que: 


F - 32 € 


189 100 


23. Idem de Fahrenheit a centígrados. 
24. Idem de pesetas a dólares. 
25. Idem de dólares a pesetas. 
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CAPITULO 4 


SALTOS 


4.1. Saltos incondicionales.—En los programas. vistos anteriormente las 
intrucciones se han ejecutado secuencialmente de menor a mayor número 
de línea, sin embargo hay ocasiones es que es muy interesante “saltarse” 
esta secuencia rígida, en especial para conseguir repetir operaciones. 

En BASIC hay una sentencia que permnite realizar saltos (transferencias 
de control, técnicamente hablando) incondicionales: la instrucción GO TO 
(Ir a ...). Su forma genérica es: 


(Núm. de línea N) GO TO (núm. de la otra línea M) 


Su funcionamiento es: 


Al ejecutar la orden de la línea N el programa transfiere su control a la 
instrucción de la línea M que es la que se realiza a continuación, siguiendo 
luego un orden secuencial hasta encontrar otro salto. 

Ejemplo 1: El programa: 

10 PRINT "BASIC" 

20 60 TO 10 

30 STOP 
no tiene fin; imprimiría la palabra BASIC indefinidamente, ya que al 
ejecutarse la sentencia 1f imprime BASIC y al ejecutarse la 20 se vuelve a 
la 10, sin alcanzar nunca la línea 30. 


Ejemplo 2: En el programa que calcula el área de un círculo dado el 
radio podemos introducir un salto y repetirlo indefinidamente, sin 
necesidad del comando RUN: 


10 INPUT R (introducir el radio) 
20 PRINT PIXR*R (escribir el área) 
30 G0 TO 10 (repetir el proceso) 
Ejemplo 3: El siguiente programa nos muestra en pantalla los números 
ares: 
d 10 LET A=2 (primer número par) 
20 PRINT A (imprimir el número) 
30 LET A=A+2 (siguiente número par) 
40 60 TO 20 (repetir el proceso) 
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Como se puede observar con los ejemplos anteriores, la sentencia GO 
TO por sí misma no tiene mucha utilidad, ya que lo único que hace es 
efectuar un proceso infinitas veces, deteniéndose sólo porque el cálculo 
sobrepasa la capacidad numérica del ordenador o porque se produce una 
interrupción manual. Sin embargo, lo interesante en cualquier proceso 
iterativo es efectuarlo un número determinado de veces o, en caso de 
efectuar saltos, que se realicen sólo en algunas determinadas condiciones. 
Vamos a ver en el siguiente apartado la manera de establecer dichas 
condiciones. 


Notas: 1) Hay varias maneras de interrumpir un programa: 


i) Introducir una respuesta alfanumérica en un INPUT que espera un 
número. Así, si en respuesta a: 


10 INPUT "ESCRIBE UN NUMERO "3A 
introducimos una letra cualquiera, aparece el mensaje de error: 
2 Variable not found, 10: 1 


y se detiene el programa. 
ii) Utilizar el comando BREAK (ruptura), que detiene el programa y 
muestra en pantalla el mensaje: 


L BREAK into program, 30: 1 


indicando que se ha detenido en la línea 30 del programa. Si 
queremos continuar la ejecución de éste, basta introducir el 


comando CONT (CONTinue = continuar) y sigue ejecutándose el 
programa a partir de la línea siguiente a donde se ha efectuado la 
ruptura. 


iii) Si se pide en un INPUT A$ una variable alfanumérica, ninguna de 
las dos opciones anteriores es posible; la manera de detener el 
programa, aparte de desenchufar el ordenador, es borrar las 
comillas de la izquierda e introducir STOP, apareciendo un mensaje - 
del tipo: 


H STOP in INPUT, 10: 1 


2) Puede usarse la instrucción GO TO como un comando directo, de 
manera análoga a RUN, así: 


GO TO 10 


hace que el programa empiece a ejecutarse a partir de la línea 10, 
diferenciándose de RUN 10 en que no borra las variables ni tampoco la 
pantalla. 


4.2. Operadores de relación.—Los saltos condicionales permiten esta- 
blecer saltos sólo en determinadas ocasiones, pero antes de estudiarlos 
vamos a ver como podemos establecer condiciones. 


En BASIC, existen 6 operadores que permiten relacionar expresiones: 


= (igual a) <> (distinto de) 
< (menor que) > (mayor que) 
<= (menor o igual que) >= (mayor o igual que) 
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Ejemplo 4: Veamos una serie de ejemplos numéricos, todos ellos 
correctamente expresados según estos operadores: 


2=2 7=14/2 7<8 —1<05 
1<=7 2<=6/3 a E 4>2 
=>-6 =—2>==) 25==7 


Estos operadores relacionan también valores numéricos de las variables. 
Al ejecutarse una relación de este tipo se le asigna el valor 1 caso de ser 
verdadera o el valor Q caso de ser falsa. 


Ejemplo 5: A > 4 es una relación cierta, y valdrá 1 por tanto, cuando A 
tome valores numéricos superiores a 4. 

A < = B será cierta, y valdrá 1, cuando A tome valores numéricos 
inferiores o iguales a B. 


A <> B *C será falsa, y por consiguiente su valor es f/f, cuando A sea 
igual al producto de B por C. 


4.3. Decisiones.—La sentencia que permite establecer condicionales en 
un programa es IF ... THEN .. (Si... entonces...). Su forma genérica es: 


(Núm. de línea, N) IF (expresiones comparadas) THEN (instrucción 
X) 

Su funcionamiento es el siguiente: 

Al llegar a la línea N, el ordenador compara las expresiones. Si la 
condición es cierta, valor 1, se ejecuta la instrucción X; en caso contrario, se 
pasa a ejecutar la línea siguiente a N. La instrucción X puede ser: un salto 
(GO TO), una impresión (PRINT), asignar valores (LET) o detener el 
programa (STOP). 

Nota: También se puede tomar como condición una única variable: 

IF A THEN ......... 


ésta se considerará cierta cuando A sea un valor no nulo. Así, el programa: 


10 INPUT A 
20 1F A THEN FRINT Az GO TO 10 
30 STOP 


imprime el valor de A si este es distinto de cero, y se detendrá si A = 4. 


Ejemplo 6: Consideremos un programa con la sentencia: 
50 IF A=10 THEN 0 TO 80 
si A vale 1 entonces el programa continuará en la línea 8f, en caso 
contrario se ejecutaría la línea siguiente a la 59. 


Ejemplo 7: El siguiente programa imprime únicamente los números 
introducidos mayores que 1f. 


10 INPUT A 
20 IF A>10 THEN PRINT A 


30 60 TO 10 
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Ejemplo 8: En el siguiente programa se introducen varios números, si 
son negativos los consideramos 1 y los imprimimos, si es menor que 15 lo 
imprime tal cual es, y si es mayor o igual que 15 se interrumpe el 
programa. 

10 INPUT A 
20 IF A<O THEN LET A=1 
30 IF A>=15 THEN STOP 
20 PRINT A 
50 GO TO 10 


Ejemplo 9: El siguiente programa nos permite comprobar si sabemos 
multiplicar. Le introducimos 2 números y nos pregunta cuál es su producto, 
informándonos de si la respuesta dada es correcta o no. 


10 INPUT "ESCRIBE DOS NUMEROS "5A,B 
20 PRINT Az"*"5B3" = " 

-30 INPUT "CUAL ES EL PRODUCTO? "3C 
40 IF C=A*B THEN PRINT "CORRECTO": STOP 
50 PRINT "INCORRECTO" 
60 60 TO 30 


Nota: Algunas versiones BASIC suprimen: 
i) THEN en caso de saltos, admitiendo expresiones de la forma 

19$ IF A=5 GOTO 2P4 

ii) THEN en las asignaciones, admitiendo expresiones del tipo 
100 IFa=b LET C=D 

iii) GO TO en los saltos, admitiendo expresiones como 
199 IF X—Y=Z THEN 157 

iv) LET en las asignaciones, admitiendo 
10 IF ABC=P THEN A = B/2 


Una condición muy usual es hacer que se ejecute un proceso un 
número determinado de veces, por lo cual el ordenador deberá contar el 
número de veces que lo ejecuta. Esto se logra mediante la introducción de 
una variable, llamada contador, que inicialmente es nula y va aumentando 
en una unidad su valor cuando se ha efectuado el proceso, para ello se 
introduce la sentencia 


(Núm. de línea) LET C=C+ 1 
donde C es la variable utilizada como contador. 


Nota: La expresión C = C + 1 no tiene sentido aritmético (sin más que 
restar a los dos miembros de la igualdad C, obtendríamos f = 1, un 
absurdo), pero sí tiene sentido en nuestro campo: asignar a la variable C su 
valor anterior aumentado en una unidad. 


Ejemplo 10: El siguiente programa imprime 2f veces la palabra BASIC 
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10 LET E=0 (inicializar la variable) 

20 PRINT "BASIC" (sentencia base) 

30 LET C=C+1 (ejecutar una vez más el proceso) 
40 IF C=20 THEN STOP (si se ha realizado 20 veces parar) 
50 GO TO 20 (seguir con el proceso) 

Ejemplo 11: El siguiente programa escribe los 30 primeros números 

pares : 

10 LET C=0 (inicializar contador) 
20 LET A=2 (primer número par) 
30 PRINT A (escribir el número par) 
40 LET A=A+2 (siguiente número par) 
50 LET C=C+1 (se ha efectuado otra vez) 
50 IF C=30 THEN STOP (parar si se ha efectuado 30 veces) 
70 GO TO 30 (continuar el proceso) 


Se podía haber realizado el programa sustituyendo las líneas 60 y 70 


por: 


60 IF C<x<30 THEN 60 TO 20 


70 STOP 


Ejemplo 12: El siguiente programa resuelve un problema ya clásico: Un 
caballero acepta vender su caballo, siempre que le paguen un céntimo por 
el primer clavo de su herradura (del caballo, se entiende), dos por el 
segundo, 4 por el tercero y así duplicando sucesivamente siempre hasta el 
último clavo, el número 32. El problema es calcular el precio fijado por el 
caballero. 


10 
20 
30 
40 
50 
60 
7O 
80 
90 
100 


LET S=0 

LET N=0 

LET N=N+1 

IF N>32 THEN 60 TO 70 
LET S=S+2” (N-1) 

GO TO 30 


PRINT "PRECIO DEL CABALLO 


PRINT 
PRINT S5/100;5" PESETAS” 
STOP 


(inicializar la suma) 
(inicializar el contador) 
(se efectúa una vez más) 
(si no hay clavos finalizar) 
(calcular la suma parcial) 
(continuar el proceso) 


Ejemplo 13: Este programa permite obtener todos los cuadrados 
perfectos menores que 444 


10 LET A=1 

20 LET B=AX*A 

30 IF B>=400 THEN STOP 
40 PRINT B 

50 LET A=A+1 

60 GO TO 20 


(primer número) 
(obtener el cuadrado) 
(parar si se pasa de 400) 
(escribir el cuadrado) 
(siguiente número) 
(repetir el proceso) 
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Ejemplo 14: El siguiente programa nos indica, de 2Q números 
introducidos, cuantos son mayores que 5, y para construirlo hemos 
establecido 2 contadores: uno C, que cuenta los números introducidos, y 
otro D, que cuenta los mayores que 5. 


10 LET C=0 (inicializar contadores) 

20 LET D=0 

30 INPUT N (introducir el número) 

40 1F N>5S THEN LET D=D+1 (contar los mayores que 5) 

50 LET C=C+1 (contar los números introducidos) 


60 IF C<20 THEN GO TO 30 (si faltan números introducirlos) 
7O PRINT D 
80 STOP 


Ejemplo 15: El número de contadores puede ser muy amplio; en el 
siguiente programa se introducen 30 notas de una asignatura y se cuentan 
el número de notas inferiores a 2.5 (muy deficientes) y el número de 
suspensos (nota inferior a 5) 


10 LET A=0 

Z20 LET M=0 

ZO LET S=0 (inicializar contadores) 

40 INPUT "NOTA "3N (introducir notas) 

50 IF N<2.5 THEN LET M=M+1 (contar los muy deficientes) 
6560 IF N<5S THEN LET S=S+1 (contar los suspensos) 

70 LET A=A+1 (contar las notas) 

80 IF A<x<30 THEN GO TO 40 (si quedan notas introducirlas) 


90 PRINT M5" MUY DEFICIENTES" 
100 PRINT 53" SUSPENSOS" 
110 STOP 


- Construir un programa que calcule la nota media de los alumnos de una 
clase es relativamente sencillo si conocemos el número de alumnos; pero, 
¿qué sucede cuando lo desconocemos? ¿cómo decirle al ordenador cuando 
debe parar? Este problema se puede solucionar mediante la introducción de 
un indicador o dato ficticio, un dato que no surge nunca en el problema y 
que al introducirse indica al ordenador que se han terminado los datos y 
que debe finalizar el programa. Es conveniente dar a conocer el indicador 
al principio del programa para que pueda ser-utilizado por cualquier 
persona distinta del programador. 

En el caso del ejemplo anterior podemos poner como indicador 15, que 
no es una nota común. Si hallásemos medias de estaturas se podría utilizar 
como dato ficticio 5, por ejemplo. 


Ejemplo 16: El siguiente programa calcula la nota media de un número 
indeterminado de alumnos: 


10 PRINT "EL INDICADOR ES 15 ” (dato ficticio) 
20 LET N=0 (inicializar número alumnos) 
30 LET S=0 (inicializar suma de notas) 
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40 INPUT "NOTA "sE (introducir notas) 

50 IF E=15 THEN 60 TO 90 (se han terminado las notas) 
60 LET N=N+1 (contar alumnos) 

7O LET S=S+E (sumar notas) 

80 60 TO 40 (seguir dando datos) 


90 PRINT "NUMERO DE ALUMNOS "35N 
100 PRINT "NOTA MEDIA "3S/N 
110 STOP 


4.4. Operadores lógicos.—Los más usuales son los siguientes: 


OR (0) Disyunción lógica 
- AND (y) Conjunción lógica 
' NOT (no) Negación Lógica 


Operan no sobre variables numéricas, caso de los operadores de 
relación, sino sobre el cumplimiento de estas relaciones. Toman los valores 
1 0 Q según sea verdadera o falsa la relación. 


Su funcionamiento es el siguiente: 


1) 


ii) 


111) 


IF (primera relación) OR (segunda relación) THEN (instrucción X); 
se ejecuta la instrucción X cuando se cumple una cualquiera de las 
dos relaciones, o ambas a la vez; en caso contrario se pasa a la 
sentencia siguiente. 

IF (primera relación) AND (segunda relación) THEN (instrucción X); 
sólo se ejecuta la instrucción X si se cumplen simultáneamente las 
dos relaciones. . 
IF NOT (relación) THEN (instrucción X); sólo se efectúa la 
instrucción X cuando es falsa la relación. 


Ejemplo 17: Supongamos que tenemos un programa del tipo: 


1) 


ji) 


111) 


50 IF A>5 OR B=1 THEN GO TO 80 
60 


Si el valor de A es mayor que 5 o el de B es 1 (incluido el 
cumplimiento de los dos a la vez) el programa salta a la línea 80, en 
caso contrario se continúa en la 60. 


50 IF A=2 AND B=S THEN GO TO 100 
60 


El programa saltará a la línea 190solamente si el valor de A es 2 y 
el de B es 5, en los demás casos continuará en la 60. 


530 IF NOT A>5 THEN STOP 
60 


Se detendrá si A no es mayor que 5, es decir si A es menor o igual 
que 5, en caso contrario continuará en la línea 60. 


Ejemplo 18: El siguiente programa nos dice cuántos, de tres números 
dados, son iguales. 
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10 INPUT X.Y.Z 

20 IF X=Y AND X=Z THEN PRINT 32 STOP. 

30 IF X=Y OR X=Z OR Y=Z THEN PRINT 2: STOP 
40 PRINT "LOS TRES SON DISTINTOS” 

30 STOP 


EJERCICIOS 


26. Sin utilizar el ordenador, ¿qué imprime en pantalla el siguiente 
programa? 
10 LET A=1 
20 GO TO 40 
30 PRINT A 
40 STOP 


27. Escribir las siguientes instrucciones en BASIC: 


a) si A es un número positivo saltar a línea 2/0. 
b) si A es mayor o igual que B al cubo saltar a la línea 5Mf; en 
caso contrario ir a la línea 244. 


28. De las siguientes instrucciones, ¿cuáles están correctamente 
expresadas?: 


i) 10 IF At2>B-— 1 THEN GOTO 50 
ii) 10 IF A+B<>C THEN D 
iii) 10 IF A<=B-—>5 GOTO 54 
iv) 10 IF A=B THEN 3Q 


29. El siguiente programa debería imprimir los 149f primeros números 
naturales, sin embargo hay varios errores. Corregirlos 


10 PRINT "A” 

20 LET A=A+1 

30 IF A<100 THEN GO TO 20 
40 STOP 


30. El siguiente programa debe mostrar en pantalla una tabla de los 2f 
primeros números naturales y de sus cuadrados. Corregir los errores que 
contiene el programa: 

1P LET N=Q 

2 PRINT N, “NxN” 

3f LET N+1=N 

4 IF N<2f THEN GOTO 10 

5pf STOP 
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PROGRAMAS PROPUESTOS 


P.1. Dado un ángulo cualquiera expresado en grados, construir un 
programa que le reste, o sume si es negativo, 3602 reiteradamente hasta 
obtener un ángulo comprendido entre Q? y 3602. 


P.2. Construir un programa que permita calcular la media aritmética 
de 19 números y de sus cuadrados. 


P.3. El área de un triángulo se puede obtener, dados sus lados a, b, c, 
pesa la fórmula de Herón: 


= y p(p-a) (p-b) (p-c) 


ad p es el semiperímetro. Hacer un programa que calcule el área de un 
triángulo dados sus lados, o presente un mensaje de error si estos no 
forman un triángulo. 


P.4. Construir un programa que permita calcular la suma de los 100 
primeros números naturales. 


P.5. Calcular, mediante un programa, la suma de los n primeros 
múltiplos de x. 


P.6. Construir un programa que resuelva la ecuación general de 
segundo grado 


ax?+bx+c=0Q 
P.7. Otro algoritmo, distinto del de Euclides, que permite calcular el 
máximo común divisor de dos números es el siguiente: 
sia > bentonces mcd(a,b) = mcd(a-b,b) 
Hallar un programa que ejecute este algoritmo. 


P.8. Construir un programa que ordene de menor a mayor 3 números 


dados. 


P.9. Elaborar un programa que imprima todos los números pares, 
menores que 1(( y que no sean múltiplos de 3. 


P.10. Construir un programa que imprima la tabla de multiplicar de un 
número cualquiera dado. 


P.11. Construir un programa que sume ángulos expresados en grados, 
minutos y segundos sexagesimales. La suma deberá estar expresada 
también en esa notación, debiendo ser los minutos y segundos inferiores a 


60. 


P.12. Hacer un programa que clasifique los triángulos en equiláteros, 
isosceles o escalenos, dados sus tres lados. 


P.13. Hacer un programa que clasifique los triángulos en obtusángulos, 
rectángulos o acutángulos, dados 2 ángulos. 


P.14. Construir un programa que permita calcular el factorial de un 
número dado. Factorial de n es el producto de todos los números enteros 
comprendidos entre 1 y n, ambos incluidos. 


P.15. Supongamos que el ordenador no tuviera en memoria la 
operación producto. Hacer un programa que solucionase este problema, en 
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el caso de números enteros positivos, sin más que considerar el producto 
como una suma reiterada. Por ejemplo, calcular 6 x 8 sumando 6 veces 8 o 
sumando 8 veces 6. 


P.16. Supongamos que carece de la operación cociente. Hacer un 
programa que calcule el cociente y el resto de una división, considerando 
ésta como una serie de sustracciones sucesivas. Por ejemplo, si el dividendo 
es 83 y el divisor es 15, se puede restar 15 a 83 siete veces, sobrando 8 
unidades, luego el cociente es 7 y el resto 8. 


P.17. Cuenta la leyenda que el ajedrez lo inventó el filósofo indio, Sasa, 
para entretener al rey Kaid. Quedó éste tan entusiasmado con el juego que 
prometió concederle cualquier recompensa que pidiera. Sasa pidió un grano 
de trigo por la primera casilla, dos por la segunda, 4 por la tercera, y así 
sucesivamente duplicando siempre, hasta la última, la número 64. Construir 
un programa que permita saber cuántos granos de trigo pidió como 
recompensa el filósofo. 


P.18. La ecuación que nos relaciona el espacio recorrido, por un cuerpo 
en caída libre, con el tiempo es 


s=s, + vt — gt?/2 
donde s, es la altura inicial, v, la velocidad inicial que tiene el cuerpo y g la 
aceleración de la gravedad, g = 9.81 m/sg?. 

Hacer un programa que construya una tabla en que se muestre la altura 
a que se encuentra el cuerpo cada décima de segundo si se deja caer (v, = 
0) desde una altura de 10 metros (s, = 10). Evidentemente el programa se 
detiene cuando el cuerpo haya llegado al suelo. 


P.19. Existen varios métodos para cuantificar la depreciación que sufre 
un equipo cualquiera. El basado en la suma de los años señala como 
depreciación, d: 

d=d,(v—n+1) 
siendo v la vida útil, en años, que se supone tiene el equipo, n es el número 
de años que ha transcurrido desde la adquisición del equipo y: 


Cc 


donde c es el costo o valor inicial del equipo. 

Hacer un programa que construya una tabla que muestre los años 
transcurridos, la depreciación que sufren en ese año y el valor que tiene 
entonces el equipo. 


P.20. El siguiente algoritmo permite hallar la raíz cuadrada de 
cualquier número n, con un error e: 


1) Hacemos a =1 
ii) Hacemos b=a 
1ii) Hacemos a = (a + n/a)2 
iv) Sil a-bl < e tomamos a = n. FIN 
v) Volvemos aii) 


P.21. Construir un programa que permita obtener el mayor y el menor 
de una lista de 24 números. 
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CAPITULO 5 


BUCLES 


5.1. FOR - NEXT.—En el capítulo anterior, para repetir reite- 
radamente un mismo proceso, lo que técnicamente se denomina bucle, lazo 
o ciclo, se utilizaban las sentencias IF-THEN, GOTO y se definía un 
contador. | 

También se podían emplear bucles sin conocer el número de veces que 
se debían ejecutar, mediante la introducción del dato ficticio. 

Pero en los problemas que se nos plantean normalmente si que 
conocemos de antemano el número de veces que se debe ejecutar un bucle, 
y es entonces cuando se utilizan las sentencias FOR-NEXT, que conforman 
el núcleo fundamental del BASIC. 

Su forma genérica es: 


(Número línea, N) FOR a=x TO y 
instrucciones a repetir 


(Número línea, M) NEXT a 


donde a es la denominada variable de control o de ejecución, x es su valor 
inicial, e y es el valor final, también llamado límite. 
Su funcionamiento es el siguiente: 


Se comienza asignando a la variable de control a el valor inicial x, se 
ejecuta el bucle hasta llegar a la línea M, donde se aumenta en una unidad 
el valor de a, y se analiza si este valor es mayor o no que el del límite y. Si 
es mayor se ejecuta la línea siguiente a la M, y en caso contrario se vuelve a 
ejecutar la línea siguiente a N. Es decir, en la línea M se efectúan de 
manera automática las instrucciones: 


LETa=a+1 
IFa<=y THEN GOTO N 


Nota: Podemos expresar lo anterior de otra forma análoga, para así 
facilitar su compresión: 
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La línea N(FOR....... TO = Desde...... hasta......) indica el número de veces 
que se va a efectuar el bucle, que está formado por las líneas comprendidas 
entre N y M. 

La línea M(NEXT...... = Siguiente......) transfiere el control de nuevo a la 
res N, siempre que el valor de la variable de control sea menor o igual al 
ímite. 


Ejemplo 1: Analicemos el siguiente programa: 


10 FOR J=i TO 3 
20 PRINT J;5 

30 PRINT "A"3 
20 NEXT J 

30 PRINT "FIN" 
60 STOP 


en la línea 10 se indica que se va a efectuar el bucle, formado por las líneas 
20 y 30, tres veces. Al comenzar el programa la variable de control (J, en 
este caso) adopta su valor inicial, 1. Se ejecuta el bucle y, al llegar a la línea 
4( se aumenta en una unidad el valor de J, que será ahora 2, y se compara 
con el de su límite, 3. Al no superar J el valor de su límite se vuelve a la 
línea 20. Al alcanzar de nuevo la línea 40, se aumenta en 1 el valor de J 
(valdrá 3 por lo tanto) y como tampoco supera el valor del límite, se vuelve 
a la línea 20. Al ejecutar de nuevo la línea 4f, la variable de control se 
incrementa en una unidad y, como ya supera el límite, no vuelve a la línea 
20 sino que se ejecuta la siguiente instrucción, quedando en pantalla: 
142A3AFIN. 


Ejemplo 2: Estudiemos el siguiente programa, que escribe los números 
del 15 al 30 y sus cuadrados. 


10 FOR J=15 TO 30 
20 LET k=3"2 

3O PRINT J,K 

40 NEXT J 

50 STOP 


En la línea 10 se indican los valores que toma la J, la variable de control. 
En la línea 20 se calcula el cuadrado de J; en la línea 30 se escribe su valor 
y el de su cuadrado. En la línea 40 se toma el siguiente valor de J y se 
vuelve a la línea 20. Así sucesivamente hasta que J = 30 pues al llegar a la 
línea 40 y ser aumentada en una unidad supera el valor del límite y se 
ejecuta la línea 59 deteniéndose el programa. 


Ejemplo 3: El siguiente programa escribe 2Q veces la palabra “BASIC”: 


10 FOR N=1 TO 20 
20 PRINT "BASIC" 
30 NEXT N 

40 STOP 


Las líneas 10 y 30 delimitan el bucle, y la línea 20 señala la instrucción a 
repetir 2( veces. 
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Ejemplo 4: El siguiente programa calcula la suma de los cuadrados de 
los n primeros números naturales: 


10 LET S=0 (inicilizar la suma) 

20 INPUT N (introducir el número de términos) 
30 FOR I=1 TO N (son los n primeros números) 

40 LET S=S+1+*I1 (suma parcial de los cuadrados) 

390 NEXT 1 (proseguir con el siguiente número) 
60 PRINT S (escribir la suma) 

70 STOP 


Ejemplo 5: Este programa imprime la tabla de multiplicar de cualquier 
número dado. 


10 
20 
0 
3) 
40 


50 


INPUT N 

FOR X=0 TO 9 

PRINT N3%x"3X53%"="35 NX 
PRINT 

NEXT X 

STOP 


Ejemplo 6: El siguiente programa calcula n!, el factorial de un número. 


10 LET F=1i 

20 INPUT N 

30 FOR I=1 TO N 
40 LET F=F+*I1 

0 NEXT I 

60 PRINT Ns" !="5F 
7O STOP 


Nota: Estos dos últimos ejemplos no se han comentado ya que se supone 
que el lector los había trabajado en los ejercicios P.10 y P.14 res- 
pectivamente. 


Observaciones: 


Los comandos FOR y NEXT siempre se usan conjuntamente. 
En el ZX-Spectrum la variable de control debe constar de una única 


a) 
b) 


c) 


d) 


letra. 


Los valores inicial y final de la variable de control pueden ser 
expresiones factibles de ser evaluadas; por ejemplo son correctas 
expresiones del tipo: 
100 FOR X=(Z+1)x*B TO N/Z 
No se puede saltar al interior de un bucle desde el exterior; en 
cambio, sí se puede efectuar la operación inversa. 
Un programa del tipo: 


100 60 TO 120 

110 FOR X=1 TO 10 
120 PRINT "HOLA" 
130 NEXT X 
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no se ejecuta, pues advierte que hay error, que se indica por el 
mensaje: 2 Variable not found, 130:1 
Es válido, en cambio, un programa del tipo: 


100 FOR X=1 TO 10 
110 1F X=5 THEN GO TO 300 
120 NEXT X 


e) En algunos ordenadores, entre ellos el Spectrum, la variable de 
control puede ser modificada dentro de su propio bucle. Por 
ejemplo: 

10 FOR J=1 TO 10 
20 LET J=3x*J 

ZO PRINT JJ 

40 NEXT J 

50 STOF 


f) En algunos ordenadores (no es el caso de Spectrum) si el valor 
inicial es mayor que el límite, el programa se ejecuta una única vez; 
así: 

10 FOR J=15 TO O 
20 PRINT Jx%J 

30 NEXT J 

40 STOP 

g) A veces (tampoco es el caso del Spectrum) se puede utilizar NEXT 
sin señalar la variable de control y el propio ordenador busca la 
variable definida en el FOR más cercano. 


5.2. STEP.—En el párrafo anterior hemos visto que, al llegar a la 
instrucción NEXT, la variable de control se incrementaba en una unidad; 
sin embargo, el BASIC admite que este incremento pueda ser otro 
cualquiera, mediante el uso de STEP (paso, incremento). 

Su forma genérica es: 


(Número de línea, N) FOR a=x TO y STEP z 


(cuerpo del bucle) 
(Número de línea, M) NEXT a 


Su funcionamiento, como se ha comentado anteriormente, es el ya 
conocido con la variación de que, al llegar a la línea M, la variable a no se 
incrementa en una sino en z unidades. 


Ejemplo 7: Analicemos el siguiente programa: 


10 FOR J=1 TO 15 STEP 6 
20 PRINT Js 

30 NEXT J 

40 STOP 
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Al ejecutarse el bucle por primera vez, al llegar a la línea 30 se aumenta 
en 6 unidades el valor de J, que ahora será 7. Como no supera el valor de 
límite, se vuelve a la línea 20. 

Al alcanzar de nuevo la línea 30 se aumenta en 6 el valor de J (vale pues 
13), y como tampoco supera el valor del límite se vuelve a la línea 20. La 
mostrará: 1713. 

Al ejecutarse la línea 30, la variable de control pasa a valer 13 + 6 = 19 
superando a su límite, por lo que no se vuelve a la línea 20 sino que se 
ejecuta la siguiente, deteniéndose el programa. 

Ejemplo 8: Supongamos que queremos escribir todos los múltiplos de 3 
menores que 100; la forma más sencilla de hacerlo sería empezar por el 
primer múltiplo Q, e ir escribiendo el siguiente número múltiplo de 3, que se 
obtiene sumando 3 al anterior. Este mismo método sigue el programa: 


10 FOR A=0 TO 99 STEP 3 
20 PRINT A 

30 NEXT A 

40 STOP 


Notas: 


1) El incremento de la variable de control puede ser una expresión 
cualquiera factible de ser evaluada; siendo válidas por tanto expresiones del 
tipo: 

120 FOR X=A TO S STEP C+D/2 


2) Si el valor del incremento es cero, el bucle se repite indefinidamente, 
ya que la variable de control nunca alcanza su límite. 

3) Los incrementos pueden ser números negativos o números de- 
cimales. Ver los dos ejemplos siguientes: 

Ejemplo 9: El siguiente programa imprime los números pares menores 
que 1Pf en orden inverso 


10 FOR X=98 TO O STEP —2 
20 PRINT X 

30 NEXT X 

40 STOP 


En la línea 10 está sintetizado todo el proceso: el primer número será 
ahora 98, y a partir de este, obtenemos los siguientes números pares en 
sentido descendente restando dos unidades al anterior. 


Ejemplo 10: Si dejamos caer un cuerpo, la relación entre el espacio 
recorrido s y el tiempo t transcurrido es: 
s=9.81 2/2 


El siguiente programa muestra una tabla tiempo-espacio con incrementos 
de décimas de segundo hasta un tiempo t dado. 
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10 INPUT "TIEMPO EN SEGUNDOS "35T 
20 FOR J=0 TO T STEP 0.1 

30 PRINT 3,9.81xJxJ/2 

40 NEXT J 

50 STOP 


5.3. Bucles encajados.—Dentro de un bucle puede haber cualquier tipo 
de instrucciones, e incluso puede haber otro u otros bucles, obteniéndose lo 
que denominamos bucles encajados o bucles anidados, los cuales permiten 
variar a la vez más de una variable de control. 


Ejemplo 11: Estudiemos el siguiente programa: 


10 FOR J=1 TO 3 
20 FOR K=10 TO 12 
30 PRINT J53Ks 

40 NEXT K 

50 NEXT J 

60 STOP 


la variable J varía entre 1 y 3 (línea 10), y para cada uno de estos valores la 
variable K variará entre 10 y 12. Así, al ejecutarse el bucle para J=1 
aparece en pantalla: 119 111 112. 

Observemos que, al no haber otro valor para K, la línea 40 deja paso a 
la línea 59 y pasamos al siguiente valor de J, 2. Se efectúa todo el proceso 
nuevamente hasta que J supera a su límite, y una vez finalizado el 
programa, en pantalla habrá aparecido: 


119 111 112 210 211 212 310 311 312 


Ejemplo 12: Este programa muestra en pantalla los números corres- 
pondientes a las 28 fichas del dominó: 


10 FOR X=0 TO 6 
20 FOR Y=X TO 6 
30 PRINT X53"-"3Y, 
40 NEXT Y 

50 NEXT X 

60 STOP 


hemos introducido un bucle encajado en otro, para así trabajar con dos 
variables, ya que una ficha es en realidad dos números que varían del Q al 
6. En la línea 20 no hemos puesto FOR Y = () TO 6 como parecería lógico al 
principio, ya que en este caso habrían aparecido por ejemplo 6— 4 y 4—6 
que son la misma ficha; inicializando Y con el valor X evitamos la repetición 
de fichas. 


Notas: 1) No se puede utilizar la misma variable de control para dirigir 
bucles encajados entre sí. 

2) Se puede saltar desde un bucle interno a otro exterior o saltar fuera 
de los bucles, pero el salto inverso (de un bucle a otro más interno) no es 
correcto. 
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3) Un bucle externo debe incluir total y absolutamente a sus bucles 
internos; es decir, el orden de aparición de los NEXT será inverso al se los 
FOR. 

Serán correctos, por ejemplo, bucles de la forma: 


FOR J=A TO B FOR J=A TO B 
FORI=C TO D MIG TO D 
: NEXT 1 
NEXT 1 
: vie H=C TO F 
NEXT J -NEXT H 
NEXT J 


Serán incorrectos, por ejemplo, bucles de la forma: 


FOR J=A TO B FOR J=A TO B 
FOR I=C TO D FOR I=C TO D 
NEXT J FOR K=E TO F 
NEXT I NEXT I 

NEXT K 

NEXT y: 


4) Existe una nueva modalidad en el empleo de INPUT que permite 
sacar un mensaje que depende del valor que en cada momento tiene una 
determinada variable. Por ejemplo: 


INPUT (“DAME EL DATO”; X); N 
saca un mensaje que depende del valor de X. Si X vale 1, aparece: 
DAME EL DATO 1 


Destacar que la novedad está en que todo el mensaje está incluido entre 
paréntesis. Con el siguiente ejemplo se comprenderá mejor el fun- 
cionamiento y las ventajas de esta nueva modalidad de INPUT. 


Ejemplo 13: Este programa nos hace preguntas acerca de la tabla de 
multiplicar del número que deseemos: 
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10 INPUT "TABLA DEL "35N 

20 FOR X=1 TO 9 

30 INPUT ("EL PRODUCTO "353N3"x"3X3"=")35Y 

40 IF Xx*N=Y THEN PRINT "CORRECTO": GO TO 60 
50 FPRINT "NO, LA SOLUCION ES "3N3"x"3Xx53"="3Nx*X 
60 NEXT X 

70 STOP 


5) También es curioso destacar que detrás de un condicional IF-THEN 
puede ir un bucle, que sólo se ejecuta, como es lógico, si se cumple la 
condición. Así: 


10 INPUT A 
20 1F A=0 THEN FOR X=1 TO 3: FRINT "BIEN": NEXT X 


30 STOP 


6) El Spectrum admite hasta 26 bucles encajados, tantos como 
caracteres alfabéticos tiene. 


EJERCICIOS 


31. ¿Cuáles de los siguientes bucles son correctos? 


1) 
10 FOR X=40 TO -10 STEP -10 


20 + 
3O » 
40 +. 
50 NEXT Xx 


ji) 
| 10 FOR Y=-10 TO O 
20 FOR K=15 TO 20 
30 PRINT Y,K 

50 NEXT Y 

60 NEXT K 


iii) 
S LET X=5 
10 FOR 1=X TO X*X STEP X/50 


20 PRINT 1 
30 NEXT 1 


32. ¿Qué mostrarán en pantalla los siguientes programas? 
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10 FOR X=1 TO 10 
20 LET X=X+3 
30 PRINT X 
40 NEXT X 
530 STOP 
ii) 
10 LET A=0 
20 FOR B=i TO 3 
30 LET A=A+B 
40 NEXT B 
0 PRINT A 
60 STOP 


33. ¿Qué tiene de particular el siguiente bucle? 


10 FOR X=1 TO 10 
20 LET X=X-1 
30 NEXT X 


34. El siguiente programa debería sumar los 190 primeros números 
naturales; corregir los errores 


10 FOR Y=1 TO 100 
20 LET S=S+Y 

30 PRINT Y 

40 NEXT Y 

530 STOP 


35. ¿Qué aparece en pantalla con el siguiente programa? 


10 FOR *X=50 TO 100 STEP 5 
20 LET X=100 

30 PRINT X 

40 NEXT X 

30 STOP 


PROGRAMAS PROPUESTOS 


P.22. Construir un programa que calcule la suma de las raíces 
cuadradas de todos los números pares de tres cifras. 


P.23. Construir un programa que imprima en pantalla una tabla de la 
función seno desde Q* a 90” a intervalos de 5? 


P.24. Hacer un programa para mostrar en columnas en la pantalla 
todos los números pares múltiplos de 7 de tres cifras. 
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P.25. Calcular, mediante un programa, el valor de 


1 11 1 
1H — ++ + — 
21 31 41 30! 


P.26. El número de combinaciones posibles que podemos formar con 
m elementos, tomándolos de n en » y sin repetir ninguno, viene dado por: 


(7)-mim— 1) (m —2)..(m—n+1) 

n n! 

Elaborar un programa que permita hallar, dados m y n, el valor de ( e ) 
n 


Nota: Tener presente la igualdad Ch )> ( Ni E n)' ya que, por ejemplo, el 


ordenador no podría calcular directamente ( E ) , pero sí que puede hallar 


45 , 
( >) ) que tiene su mismo valor. 


P.27. El siguiente algoritmo es similar al utilizado por Arquímedes para 
obtener un valor aproximado de PI. 

Se inscribe un cuadrado en la circunferencia (supongamos que su radio 
es 1, por comodidad), y su lado valdrá y/ 2. Inscribimos a continuación el 
polígono que tiene un número doble de lados, en este caso el octógono, y 
calculamos su lado en función del lado anterior. Si reiteramos este proceso, 
doblando cada vez el número de lados del polígono anterior, se obtiene la 
siguiente relación entre los lados: 


LAI, 


n 
Si repetimos el proceso infinitas veces, el perímetro del polígono acabaría 
coincidiendo con la longitud de la circunferencia, en este caso 2 PI, luego PI 
sería la mitad del perímetro. 
Construir un programa que muestre una tabla en que aparezcan el 
número de lados del polígono inscrito y el valor aproximado de PI que 
deducimos de ese polígono. 


P.28. Hacer un programa que dibuje un rectángulo de 20 por 17, 
estando los lados formados por asteriscos. No usar TAB ni AT. 


P.29. Hacer un programa que permita construir, hasta la fila deseada, 
el triángulo de Floyd: 


rrrrrrrrrrrrccrcrcrrss..... 


Es decir, en la fila n-ésima debe haber n números; además, todos los 
números que forman el triángulo son consecutivos, siendo 1 el primer 
número. 
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P.30. Construir un programa que permita hallar todos los números 
enteros positivos de tres cifras que cumplan la siguiente condición: el 
número ha de ser igual a la suma de todos los números de dos cifras 
distintas que se obtienen colocando sus tres cifras en grupos de dos. 


P.31. Obtener un programa que permita poner en número 249 como 
suma de dos números, uno de los cuales sea múltiplo de 24 y el otro de 35. 


P.32. Mediante un programa calcular el número de toques que efectúa 
un reloj desde una hora dada hasta el final del día (introducir únicamente 
horas enteras). Suponer que en todas las medias horas da un toque y tener 
presente el que pueda ser por la mañana o por la tarde. 


P.33. Hacer un programa que encuentre todos los números de 3 cifras 
que sean igual a la suma de los cubos de las tres cifras que lo forman. 


P.34. Supongamos que tenemos una función y=f(x), cuya repre- 
sentación gráfica es: 


Bd 


a b Y 


y queremos calcular el área marcada, limitada por la gráfica de la función, 
el eje horizontal y las rectas verticales que parten de a y b. Ese área es, 
matemáticamente hablando, la integral de la función y=f(x) desde a 
(extremo inferior) hasta b (extremo superior); lo que se expresa en la forma 


b 
] f(x) dx 


Veamos un método que permita hallar un valor aproximado de dicha 
área: Subdividimos el segmento [a, b] en intervalos más pequeños (por 
comodidad podemos suponer que todas estas particiones miden lo mismo: 
p) Obtenemos así, una serie de rectángulos cuyas áreas son res- 
pectivamente: p.f (x,),...,p - f (b). 
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EG) 


Si el número de divisiones del segmento [a, b] es bastante elevado 
entonces la suma de todas las áreas de todos los rectángulos formados nos 
dará un valor bastante aproximado del área buscada. 

Usar este método para calcular: 


A E 
2 
sen x dx J x”“ dx 
1 


Nota: Dividir el segmento [a, b] en 500 partes iguales, como valor 
orientativo. 


o 
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CAPITULO 6 


FUNCIONES DE BIBLIOTECA 


6.1. Presentación en pantalla: TAB- AT.—Para todo lo relacionado con 
la sentencia PRINT, la pantalla del Spectrum está dividida en 22 filas, desde 
V hasta 21, y en 32 columnas, desde Y hasta 31. Se empiezan a numerar 
desde la esquina superior izquierda; las filas crecen hacia abajo y las 
columnas hacia la derecha. 

La función TAB x, que siempre va precedida de PRINT, imprime a partir 
de la columna x en lugar de empezar en la columna A como ocurre con la 
instrucción PRINT a secas. Así, por ejemplo: 


PRINT TAB 5;"A" 
imprime la letra A en la columna número 5, 
PRINT TAB 73"A"53TAB 15;3"B" 


imprime la letra A en la columna 7, y la letra Ben la 15. 


Notas: 1) TAB es abreviatura de TABulador, ya que su misión es 
análoga a la del tabulador de una máquina de escribir. 

2) El argumento de la función TAB puede ser una constante, una 
variable o una expresión factible de ser evaluada. Es decir, son válidas 
expresiones de la forma 


PRINT TAB (A+B/C0)5P 


3) La función TAB opera siempre sobre la parte entera; así, por 
ejemplo: 
PRINT TAB 9.25;"B"” 


imprimiría la letra Ben la columna número 9. 
4) Con la función TAB no es posible retroceder dentro de una misma 
fila. Por ejemplo: 


PRINT TAB 155"A"5TAB 55"B" 


en algunos ordenadores da mensaje de error; en otros, incluido el 
Spectrum, se imprime A en la columna 15 y Ben la columna 5 de la línea 
siguiente. 

5) En la mayoría de los ordenadores, incluido el Spectrum, si en la 
función TAB x, x es superior al número de columnas (32 en nuestro caso) 
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considera como argumento el resto de dividirlo por el número máximo de 
columnas. Así, TAB 4f indica lo mismo que TAB 8. 

6) En otros ordenadores, el argumento de TAB debe ir obligatoria- 
mente entre paréntesis; en el Spectrum es opcional. 

Ejemplo 1: Dado un número, imprimir en columnas los enteros menores 
que él, sus cuadrados y sus cubos. 


10 INPUT "ESCRIBE UN NUMERO "35N 

20 PRINT "X"5TAB 1053"X"2"5TAB 205"X"3"2z PRINT ? 
30 FOR Y=1 TO N-1 

40 PRINT Y3TAB 1053Y"2;5TAB 2053Y"3 

50 NEXT Y 

60 STOP 


En la línea 2 se imprime el encabezamiento, en el bucle 3f— 54 
obtenemos los números que el dado, y en la línea 44M imprimimos en 
columnas. 

Ejemplo 2: El siguiente programa imprime en pantalla una tabla en que 
aparecen los múltiplos de 5 menores que 14M, sus raíces cuadradas y sus 
raíces cúbicas: 


10 PRINT "X"5TAB 55"X" (1/2)"53TAB 183"Xx”(1/3)” 
20 FOR X=0 TO 95 STEP 5 

30 PRINT X5TAB 55X” (1/2)5TAB 183X” (1/3) 

40 NEXT X 

50 STOP 


La función TAB puede emplearse también para obtener gráficos, en especial 
en ordenadores que no poseen la instrucción PLOT o similar. Las gráficas 
son, evidentemente, muy rudimentarias. 


Ejemplo 3: Este programa 


10 FOR 1=-4 TO 4 STEP 0.5 
20 PRINT TAB (16-11)3"+*" 
30 NEXT 1 

40 STOP 


“dibuja” una parábola cuyo eje de simetría es la fila 8. 
Ejemplo 4: Si cambiamos la línea 24 del ejemplo anterior por 
20 PRINT TAB 1Ix13"x" 
en pantalla aparece la parábola invertida. 
Ejemplo 5: El siguiente programa 


10 FOR J=1 TO 10 
20 PRINT TAB 163"x" 
30 NEXT J 

30 FOR J=0 TO 31 
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50 PRINT "x*">5 

60 NEXT J 

70 FOR J=1 TO 10 
80 PRINT TAB 163"x" 
90 NEXT J 

100 STOP 


Al ejecutarse imprime en pantalla unos ejes de coordenadas. 

El bucle 10-30 imprime la parte superior del eje vertical y el bucle 8f- 
100 la parte inferior; el bucle 40-68 imprime el eje horizontal, que 
corresponde a la fila 18. 

La otra instrucción que permite mejorar la presentación en pantalla es 
la instrucción AT. Siempre va unida a PRINT (PRINT AT: imprime en), 
indica la fila y la columna donde debe imprimirse; así: 


10 PRINT AT X,Y3"A" 


imprime un A en la fila x, columna y. 


Notas: 1) No todos los ordenadores poseen esta instrucción. 
2) Recuerda que en el Spectrum la numeración de filas es de Ha21, y 
la de columnas de f a 31. 


Ejemplo 6: El ejemplo anterior, usando la instrucción AT quedaría en la 
forma: 


10 FOR J=0 TO 31 

20 PRINT AT 10.J;3"x*" 
30 NEXT J 

40 FOR J=0 TO 20 

50 PRINT AT J,16;"x*" 
60 NEXT J 

70 STOP 


El bucle 14-34 imprime el eje horizontal, y el 44-64 el vertical. 


6.2. Funciones de biblioteca.— Se llaman funciones de biblioteca o de 
librería a una serie de funciones clásicas que todo ordenador lleva ya 
incorporadas en su interior, como una especie de biblioteca interna. Estas 
funciones facilitan la escritura de los programas, en especial los de índole 
científico. Las más comunes son: 


TAB x, ya estudiada anteriormente. 

SGN x, es la función SiGNo. Su valor es — 1 cuando x es negativo, 1 si x 
es positivo, y f cuando x es nulo. 

ABS x, es la función valor ABSoluto. Su valor es x cuando x es positivo o 
nulo, y —x cuando x es negativo. 

SQR x, (SQuare Root: raíz cuadrada) nos da la raíz cuadrada positiva de 
x, por lo que x no podrá ser un número negativo. En algunos ordenadores, 
no en el Spectrum, si el argumento x es negativo calculan la raíz cuadrada 
de su valor absoluto. 
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EXP x, es la función EXPonencial. Nos da el valor de e*%, donde e es 
aproximadamente 2.7182818... 

LN x, es la función Logaritmo Neperiano, también llamada logaritmo 
natural, que es la inversa de la anterior. Nos da el número al cual hay que 
elevar e para obtener x; el valor de x, por tanto, deberá ser mayor que f/. 

En la mayoría de los ordenadores se designa LOG (x). 

SIN x, es la función seno (SINe: seno), donde el ángulo x está expresado 
en radianes, no en grados. 

COS x, es la función coseno; nos da el valor del coseno de x, donde x 
está expresado en radianes. 

TAN x, es la función tangente, nos da el valor de la tangente de x, que 
está expresado en radianes. 

ATN x, es la función Arco TaNgente; nos da el ángulo, en radianes, cuya 
tangente es x. 


Algunos ordenadores, caso del Spectrum, admiten otras funciones de 
biblioteca: 


AT vista anteriormente. 

ASN x, es la función Arco SeNo; nos da el ángulo, en radianes, cuyo 
seno es x. 

ACS x, es la función Arco CoSeno; nos da el ángulo, en radianes, cuyo 
coseno es x. 

Notas: 1) Se estudiarán en el capítulo siguiente INT y RND. 

2) En el capítulo 8 se estudian las funciones de cadenas. 

3) En todas las funciones de biblioteca, el argumento x puede ser una 
constante, una variable o una expresión factible de ser evaluada. 

4) Un radián es el ángulo central, en una circunferencia, bajo el cual se 
abarca un arco de longitud igual al radio; por tanto: 
2PI radianes serán 360%, 
de donde 

1 radián es aproximadamente 57* 17' 44” 

5) En la mayoría de los ordenadores es imprescindible escribir el 
argumento de las funciones de librería entre paréntesis. En el Spectrum no 
es necesario pero, a veces, es conveniente para obtener una mayor claridad. 

6) Hay cuatro funciones, en el Spectrum, que las obtiene utilizando 
polinomios de Chebyshev, estas son: ATN, EXP, EN y SIN. 

7) Algunos consideran a PI (tecla M modo extendido) cuyo valor es 
3.141592653...... como una función de biblioteca. El Spectrum almacena el 
valor de PI/2 en la tabla de constantes de la ROM y cuando necesita PI 
duplica el valor. 


Ejemplo 7: El siguiente programa nos da una tabla de las funciones 
trigonométricas seno y coseno, desde 0* hasta 180% a intervalos de 102. 


10 PRINT "X"3TAB 753"SEN X"5TAB 2053"CO0S X" 
20 FOR X=0 TO PI STEP PI/i8 

30 PRINT 180x*X/PI5TAB 753SIN X53TAB 2053C0S X 
40 NEXT X 

30 STOP 
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6.3. Definición de función: DEF FN.—Además de las funciones de 
biblioteca, el BASIC admite la posibilidad de que el programador defina sus 
propias funciones, lo que es especialmente útil cuando un mismo cálculo se 
repite varias veces a lo largo del programa, ya que evita errores y ahorra 
trabajo y memoria. Esto se logra mediante la instrucción: DEF FN 
(DEFinición de FuNción) cuya forma genérica es: 

(n.2 de línea) DEF FN nombre de la función (variable-s) = expresión 

Ejemplo 8. Si definimos 


10 DEF FN At(X)=X*P1/180 


en esta función, que pasa de grados sexagesimales a radianes, el nombre de 
la función es A, la variable (siempre entre paréntesis) es x, y siempre que 
aparezca FN A (x) en el programa tendrá como valor x * PI/180. Así, si 
introducimos la línea 


20 PRINT FN A(5) 
en pantalla aparecerá .087266463. 


Ejemplo 9: El siguiente programa imprime una tabla de valores de la 
función f (x)= cos (x). e* — 7 en el intervalo [1,284]. 


10 PRINT "Xx", "Y" 

20 DEF FN Y(X)=C0S X*EXP X-7 
30 FOR X=1 TO 20 

40 PRINT X.FN YO00 

50 NEXT x 

60 STOP 


En la Línea 10 está el encabezamiento, en la 20 definimos la función y el 
bucle 30 -50 imprime la tabla. 


Notas: 1) En la mayoría de los ordenadores, incluido el Spectrum, el 
nombre de la función tiene que constar de una única letra, y a continuación 
(siempre entre paréntesis) el nombre de la variable. Es decir, únicamente 
podemos definir 26 funciones: FN A (x), ..., FN Z (x). 

2) Como ya hemos visto en el ejemplo 9, al definir una función se 
puede incluir cualquiera de las funciones de biblioteca. 

3) En la mayoría de los ordenadores se pueden definir funciones con 
varias variables, por ejemplo: 


10 DEF FN A(X,Y)=Xx*X-Y 


en algunos el número máximo de variables es 5; y el Spectrum admite 
hasta 26 variables. 

4) Aunque es evidente, no está de más advertir que no se pueden 
definir dos funciones con el mismo nombre en un mismo programa, ya que 
la segunda anularía la definición de la primera. 

5) En algunos ordenadores sólo se permite usar FN A (x) si ha sido 
definida previamente en una línea anterior. No es este el caso del Spectrum, 
pero de todas formas es aconsejable definir las funciones al comienzo del 
programa para obtener mayor claridad. 
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6) El Spectrum, como otros ordenadores, permite definir funciones de 
cadenas. Así, por ejemplo: 


10 DEF FN A$(X$)=X$(3 TO ) 


donde la función FN A$ (X$) obtiene la subcadena formada por todos los 
caracteres de X$ excepto los 2 primeros. 


Ejemplo 10: Si invertimos un capital C pesetas a un interés compuesto / 
durante Naños, el valor V del capital viene dado por la expresión: 


V=C(1+1190)" 
El siguiente programa, dados el capital y el interés, muestra el valor del 
capital en un intervalo de 24 años. 


10 INPUT "CAPITAL "5C 

20 INPUT "INTERESES "51 

30 DEF FN VIN)=Cx*1(1+1/100)“N 
40 FOR J=1 TO 20 

50 FRINT FN V(J) 

60 NEXT J 

7O STOP 


Ejemplo 11: El siguiente programa imprime una tabla de hipotenusas de 
triángulos rectángulos cuyos catetos son enteros comprendidos entre 1 y 
25. Recordar el teorema de Pitágoras: hipotenusa al cuadrado es igual a la 
suma de los cuadrados de los catetos. 


10 DEF FN H(P,Q)=SO0R (P"2+072) 
20 PRINT "CATETOS", "HIPOTENUSA" 
30 FOR P=1 TO 25 

40 FOR 0=P TO 25 

50 PRINT P53TAB 450,FN H(F,0) 

60 NEXT Q 

70 NEXT P 

80 STOP 


En la línea 4f el valor inicial de la variable es P, para evitar la repetición de 
triángulos iguales. 
Ejemplo 12: Si trabajamos con logaritmos no neperianos (logaritmos cuya 
base es distinta del número e), se puede definir una función que calcule los 
logaritmos en una base cualquiera, mediante el cambio: 
_ 1In(x) 
log, (9= In(a) 
10 INPUT "BASE "3A 
20 DEF FN P(X)=LN X/LN A 
30 INPUT "CUAL ES El NUMERO "35N 
40 PRINT "EL LOGARITMO EN BASE "545" DE "3N3" ES 
5FN PIN) 
50 GO TO 10 
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PROGRAMAS PROPUESTOS 


P.35. Construir un programa en el cual se vayan introduciendo 
diversos números (por ejemplo, introducir 15); éstos aparecerán a partir de 
la quinta columna, y en la columna vigésima se imprimirá el producto de 
todos los números introducidos hasta entonces. Por último, en la fila 19, 
columna 15 se imprimirá FIN. 


P.36. Elaborar un programa que construya, mediante el empleo de TAB 
o AT, un enrejado formado por 8 líneas verticales y 6 horizontales, 
formadas por asteriscos. 


P.37. Construir un programa que, usando TAB o AT, permita obtener 
en pantalla un cuadro de lado n (el valor máximo de n será 22) y sus 
diagonales. Dibujar las líneas con asteriscos. 


P.38. En los ejemplos 3 y 4 hemos representado, mediante TAB, la 
parábola y=x?. Hallar un programa que represente su función inversa 
y = SQR (x). 

P.39. Representar simultáneamente, mediante el uso de TAB, las 
funciones seno y coseno en el intervalo [4,2PI]. 


P.40. Construir un programa que permita resolver el clásico problema 
de las dos circunferencias: 


Dadas dos circunferencias de igual radio r, calcular a que distancia 
deben estar situados sus centros para que el área de las tres figuras que se 
forman, al cortarse las dos circunferencias, sean iguales. 


Nota: El área común a las 2 circunferencias viene dada por: 
2 (r? arc tg (2SOR(r?-d2/4/d)-dSQR (r?-d2/4/2) 


P.41. Sabemos que PI es el cociente entre la longitud de una 
circunferencia y su diámetro. Arquimedes, para calcular un valor 
aproximado de PI, utilizó el siguiente método: 


Se inscriben en una circunferencia (por comodidad se puede suponer de 
radio unidad) polígonos regulares de n lados. Si n es bastante elevado, se 
puede suponer que son iguales la longitud de la circunferencia 2PI y el 
perímetro p del polígono inscrito, obteniéndose como valor aproximado de 
PL p/2. 

Hacer un programa que, siguiendo el proceso de Arquímedes, obtenga 
un valor aproximado de PI. Hallar también el número de lados que tendrá 
ese polígono. 


P.42. Elaborar un programa que imprima la tabla de valores de 
cualquier función, entre unos límites dados y con un incremento también 


dado. 


P.43. En el capítulo anterior calculábamos integrales definidas de un 
par de funciones específicas (P.34); construir ahora un programa que 
calcule la integral definida de cualquier función en un intervalo dado. 
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Ayuda: En estos dos últimos programas es aconsejable tomar como 
inicio del programa, para poder introducir la función dentro de él, las 
siguientes líneas: 


10 PRINT "TECLEA A CONTINUACION ” 
20 PRINT AT 5,23"50 DEF FN Y(X)=...AQUI TECLEA L 
A FUNCION...” 


30 PRINT AT 10,553"UNA VEZ DEFINIDA LA FUNCION TECL 
EA RUN 50 " 
40 STOP 


y a continuación escribir el programa propiamente dicho. 


P.44. Construir un programa que, dados dos puntos en la pantalla (es 
decir, dados el número de fila y columna de cada uno de ellos), dibuje, 
mediante TAB, una línea de asteriscos que los una. 


P.45. Veamos a continuación 3 métodos distintos que permiten resolver 
ecuaciones por aproximación. El primer método está basado en el teorema 
de Bolzano: “Si una función continua cambia de signo en los extremos de 
un intervalo, posee al menos una raíz en dicho intervalo”. 

Sea la ecuación f (x) = Q y sean a y b los extremos del intervalo en los 
que la función tiene distinto signo. Tomemos ml, el punto medio del 
intervalo [a, b]. 

Si el signo de f (m1) es distinto del signo de f (b), buscaremos la raíz en 
el intervalo [m1, b], en caso contrario la buscamos en el intervalo [a, m1]. 
Reiteramos el proceso tomando m2, punto medio del nuevo intervalo 
estudiado, y así sucesivamente. Detendremos el proceso cuando algún 
punto medio sea la raíz de la ecuación, f (mi) = f, o cuando la diferencia 
entre los extremos sea menos que el error admitido, y entonces tomaremos 
como raíz el punto medio de este intervalo. 

Construir un programa que permita obtener raíces de cualquier 
ecuación. Utilizar la ayuda indicada en el P.43. 


P.46. El segundo método iterativo para resolver ecuaciones es el 
siguiente: 


Supongamos que la ecuación a resolver es x?” + 2x? — 9 = fh; la 


reescribimos en la forma 
7, 
= y 9-—2x? 


Damos un valor inicial a x, y lo sustituimos en el segundo miembro de la 
igualdad, lo que nos da un valor de x más aproximado a la raíz; llevamos 
este valor al segundo miembro de la igualdad y así obtendremos otro valor 
de x más aproximado aún a la raíz; y, así sucesivamente. Este proceso se 
repetirá hasta que la diferencia entre dos valores sucesivos de x sea inferior 
al error admitido en los cálculos; entonces tomaremos como valor de la raíz 
el valor medio de estos dos últimos valores de x. 

Tener presente que, según el valor inicial de x, las diversas aproxi- 
maciones no siempre convergen hacia un valor. Esto se puede solucionar 
imprimiendo los diversos valores aproximados y controlándolos visual- 
mente, o fijando un número tope de iteraciones. 
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Construir un programa que permita hallar las raíces de la ecuación 
dada. Tomar como valor inicial de x,1. Probar con otros valores y analizar 
los resultados. 


P.47. El tercer método que vamos a ver es el de Newton: 


Si la ecuación dada es f (x) = Q, podemos efectuar un proceso de 
iteraciones, análogo al del problema anterior, tomando como nuevo valor 
de x: 


x — £(3) 
P(x) 
donde f' (x) es la derivada de la función 
El proceso se detendrá, como antes, cuando la diferencia entre dos 
valores sucesivos de x sea inferior al error admitido. 
Construir un programa que resuelva la ecuación x3 cos (x) — 7 = Q. 
Tener presente que la derivada de f (x) = x3 cosx —.7 es f' (x) = 3 x? cosx— 
x3 senx. Tomar como valor inicial de x, 3 PI/2. 


Nota: Resolver las dos ecuaciones dadas por los tres métodos y 
comparar los resultados. Estudiar la posibilidad de cronometrar mediante el 
reloj interno, cual de los tres métodos es más rápido. 

Al resolver la ecuación x3 cosx — 7 = Q por el segundo método, 
reescribirla en la forma: 


» 
l 


COS X 


Advertir que cos x puede ser negativo, y el Spectrum no admite 
potencias de base negativa. 

Al resolver la ecuación x” + 2x2? — 9 = Q por el método de Newton, 
recordar que la derivada de la función es 7x* + 4x. 
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CAPITULO 7 


AZAR 


7.1. INT.—Es una de las funciones de biblioteca más utilizada, tanto 
para cálculos numéricos como para efectuar simulaciones, en que va unida 
a la función RND. 

La función INT x, cuyo nombre matemático es función “parte entera” 
(INTeger = número entero), nos da el mayor número entero menor o igual 
que x. 


Ejemplo 1: Consideremos un número positivo cualquiera, por ejemplo 
3.1925, los números enteros menores que él son. 


3,2,1,f4,— 1,—2,— 3, ... 
el mayor de todos es 3, luego si introducimos en el ordenador. 
PRINT INT 3.1925 


en pantalla aparece 3. 

Es decir, si el número es positivo su parte entera es el número sin su 
parte decimal. 

Veamos qué pasa con los números negativos; si el número es — 3.1925, 
los números enteros menores que él son: 


— 4, —5, —6, —7, ... 
y el mayor de todos es — 4, luego si introducimos 
PRINT INT — 3.1925 


en pantalla aparece — 4. 
Es decir, si el número es negativo su parte entera es el mismo número, 
sin su parte decimal, menos una unidad. 


Ejemplo 2: ¿Cómo le indicamos al ordenador si un número es par o no? 
Un número es par cuando es divisible por 2, y, dicho de otra manera, es par 
cuando al dividirlo por 2 obtenemos un número entero, es decir, un 
número cuya parte entera es igual a él mismo. Por tanto, un número N será 
par cuando 

INT (1/2) = N/2 


El siguiente programa nos imprime los números pares menores que 100 
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10 FOR N=1 TO 99 

20 1F INT (N/2)=N/2 THEN PRINT N 
30 NEXT N 

40 STOP 


En general, un número N será múltiplo de X, o N es divisible por X, 
cuando 


INT (YX) = NX 


Ejemplo 3: Normalmente en el cálculo mumérico aparecen varios 
decimales, pero si sólo mos interesan dos o tres de ellos, ¿cómo nos 
deshacemos de los restantes?. 

Supongamos que X=7.724218, y queremos “truncarlo” para quedarnos 
con tres decimales únicamente. La forma más cómoda de conseguirlo es 
multiplicar X por 10PP, obteniendo 7724.218; si ahora consideramos la parte 
entera de ese número, que es 7724, y la dividimos por 100f, tenemos 7.724 
como deseábamos. 

En general, si tenemos un número X y lo queremos “truncar” a N 
decimales, deberemos introducir la línea: 


LET X = INT (X*(10 1 N)/(10 1 N) 

Ejemplo 4: En el cálculo numérico más interesante que “truncar” es 
“redondear”, es decir, si X=7.724218 considerar X=7.724, pero si 
X="7.738857 es mejor tomar X=7.739; para “redondear” basta introducir la 
línea: 

LET X=INT(X*(101M+0.5/(10 1 N 
Ejemplo 5: Un número entero positivo se dice primo cuando sólo es 


divisible por él mismo y por 1. El siguiente programa calcula si un número 
dado es primo o no: 


10 INPUT "EL NUMERO ES "3N 

20 IF N=2 THEN PRINT "2 ES PRIMO": STOP 

3O FOR X=2 TO SQR N 

340 1F INT (N/X)=N/X THEN FRINT N3" NO ES PRIMO ”: 
STOP 

0 NEXT X 

60 PRINT N3" ES PRIMO ": STOP 


En el bucle 30-50 se prueba si el número N es divisible por algún 
número, en caso de serlo no será primo y se detiene el programa. Si éste no 
se detiene en el bucle quiere decir que no es divisible por ningún número, 
por tanto en la línea 6f se imprime que es primo y se para el programa. 


Nota: Observar que el valor final de la variable del bucle es SOR N en 
lugar de N—1, como parecería lógico; pero nos basamos en el hecho de 
que si un número no es divisible por ningún número menor que su raíz 
cuadrada tampoco será divisible por ningún número mayor que su raíz 
cuadrada. 


Ejemplo 6: Este programa calcula el menor número de monedas de 50, 
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25, 19, 5 y 1 peseta que necesitamos para pagar una cantidad inferior a 100 
pesetas. 


10 INPUT "CUAL ES LA CANTIDAD "3N 
20 LET A=INT (N/S50) 

30 LET B=INT  ((N-50*AM) /259) 

40 LET C=INT— ( (N-5SO*A-25%B)/10) 
50 LET D=INT ( (N-S5SO*A-25*B-10%C)/5) 
60 LET E=N-S5S0*A-25*B-10%*C-53%D 

7O PRINT "SON: " 

73 PRINT 

30 PRINT A5"” MONEDAS DE 50 PTAS" 
90 PRINT B5" MONEDAS DE 25 PTAS" 
100 PRINT C5” MONEDAS DE 10 PTAS" 
110 PRINT D;3" DURO" 

120 PRINT E3" PESETAS" 

130 STOP 


En la línea 20 se calcula "el número de monedas de 50, en la 30 el 
número de monedas de 25 necesarias para pagar la cantidad restante, en la 
49 las monedas de 14 pesetas, en la 54 los duros y la cantidad restante, 
línea 68, serán pesetas sueltas. 

Ejemplo 7: En el capítulo inicial ya vimos el algoritmo de Euclides; si 
a b y res el resto de dividir a por b, entonces mcd (a, b)=wmcd(b, r) y si 
r=f entonces mcd (a, b)= b 


10 INPUT "NUMERO MAYOR "3A 

20 INPUT "NUMERO MENOR "5B 

30 PRINT "MCD ("3A5","3B3")="3 
40 LET R=A-BX*INT (A/B) 

50 IF R=0 THEN PRINT B:z STOP 
60 LET A=B: LET B=R 

7O GO TO 40 


7.2. RND.—La función RND (RaNDom=azar, aleatorio) permite 
obtener números aleatorios (aleatorio = incierto, no predecible) del intervalo 
[0,1), es decir, mayores o iguales que cero y menores que 1. En realidad no 
son números aleatorios sino pseudoaleatorios ya que siguen una secuencia 
cíclica introducida en la memoria. En el Spectrum, la secuencia está 
formada por 65536 números distintos. Por ejemplo, introducir el siguiente 


programa 


10 FOR X=1 TO 20 
20 PRINT RND 

30 NEXT X 

40 STOP 


y en la pantalla aparecerán 20 números del intervalo [Q,1). 
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Nota: En la mayoría de los ordenadores la función azar lleva argumento, 
se escribe RND (X), pero éste es totalmente ficticio, no influyendo para nada 
en la obtención del número aleatorio. Igual es utilizar RND (5) que RND (1) 
por ejemplo. En el Spectrum ya hemos visto que la función RND no utiliza 
argumento. 


Ejemplo 8: Supongamos que deseamos obtener un número al azar del 
intervalo [Q,100), ¿cómo lo logramos? 

Con la función RND obtenemos un número del intervalo [Q,1); por tanto, 
bastará multiplicar dicho número por 100, luego la orden será: 


PRINT 100 * RND 


Si deseamos que el número fuese entero, sustituiríamos la orden anterior 
por 


PRINT INT (100 * RND) 


Y, en general, si queremos tener números enteros comprendidos entre p y 
q, ambos incluidos, la orden será: 


PRINT INT ((q—p+ 1)* RND)+ p 


Ejemplo 9: La función RND se puede utilizar para simular experimentos. 
Así, por ejemplo, lanzar una moneda (no trucada) es análogo, o similar, a 
elegir un número del intervalo [Q,1) y estudiar si es mayor o menos que 0.5. 
Vamos a construir un programa que simule el lanzamiento de'5Q monedas 
y nos diga el número de caras y cruces resultantes; para ello, elegiremos 
números del intervalo [Q,1) y si es mayor que (.5 supondremos que ha 
salido cara y en caso contrario que ha salido cruz; también lo podríamos 
haber considerado al revés. El programa quedaría en la forma: 


10 LET C=02: LET X=0 

20 FOR I=1 TO 50. 

30 IF RND<0.5 THEN LET C=C+1: GO TO 50 
40 LET X=X+1 

50 NEXT 1 

60 PRINT "CARAS "35C,” CRUCES "5X 

70 STOP 


En la línea 10 se han inicializado los contadores de caras y cruces; el 
bucle 20-50 efectúa los 50 “lanzamientos” contabilizando el número de 
caras, número aleatorio menor que 0.5, y el número de cruces, caso contrario. 


Ejemplo 10: Vamos a comprobar si la secuencia interna de números 
aleatorios es realmente “aleatoria”; para ello, “lanzaremos” un dado 1200 
veces y contabilizaremos el número de veces que aparece cada puntuación 
del dado. Si el dado (la secuencia de números) es correcto cada puntuación 
deberá salir aproximadamente 2/0 veces. Comprobémoslo: 


El primer problema que se nos plantea es, ¿cómo lanzamos un dado?; 
tengamos en cuenta que lanzar un dado es, en realidad, elegir un número 
de 1 a 6 ambos incluídos, y la instrucción a utilizar será, de acuerdo con el 
ejemplo 8, la siguiente: 


PRINT INT (6 * RND) + 1 
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El programa que buscamos será por tanto: 


3 LET U=O: LET D=O0: LET T=0 
7 LET C=0: LET CI=0: LET S=0 
10 FOR I=1 TO 1200 
20 LET X=INT (RND*6)+1 


50 IF X=1 THEN LET U=6U+1 
40 14F X=2 THEN LET D=D+1 
0 IF X=3 THEN LET T=T+1 
60 I1F X=4 THEN LET C=C+1 
7O 1F X=5S THEN LET CI=CI+1 


80 IF X=6 THEN LET S=S+1 
85 PRINT AT 2,1531 

90 NEXT 1 

95 CLS 

100 PRINT "PUNTUACION”, "FRECUENCIA" 
105 PRINT 

110 PRINT 1,U 
120 PRINT 2,D 
130 PRINT 3,7 
140 PRINT 4,C 
150 PRINT 5,C 
160 PRINT 6,5 
170 STOP 


Como se puede observar, una vez ejecutado el programa, las frecuencias 
de las 6 puntuaciones son todas cercanas a 200, que es la sexta parte de 


1200. 


7.3. RANDOMIZE.—Al trabajar con la función RND se plantean dos 
cuestiones: 

i) ¿Cómo corregir los errores de un programa cuando el número que 
se introduce es casi con toda seguridad distinto del que nos ha producido el 
error?, o lo que es igual, ¿cómo estar seguros de haber corregido el error? 

ii) Los números introducidos por RND son casi aleatorios, ¿podríamos 
conseguir que fueran más aleatorios aún? 

Ambas dificultades se pueden solucionar con la sentencia RANDOMIZE, 
que adopta dos expresiones: 


a) RANDOMIZE n, siendo 1<n<65535, toma el valor de RND de un 
lugar fijo de la secuencia de números. Así, por ejemplo: 


10 RANDOMIZE 100 
20 PRINT RND 


Muestra en pantalla: $.11557007, y si repetimos 2f veces la obtención del 
número aleatorio 
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10 FOR X=1 TO 20 
20 RANDOMIZE 100 
30 PRINT RND 

20 NEXT X 


se imprime 20 veces el mismo número: (.11557007. 
Cuando 1 <n<872 RANDOMIZE n le da a RND el valor: 


75(n+1)—1 
65536 


como se puede comprobar con el programa 


10 FOR N=i TO 872 
20 RANDOMIZE N 


30 PRINT RND, (75% (N+1)-1) /65536 
40 NEXT N 


en que las dos tablas que imprime la línea 3f, en primer lugar los números 
aleatorios y después la expresión indicada, son iguales. Notar que si n> 872 
la expresión anterior es mayor que 1. 

Por tanto, utilizando RANDOMIZE n, resolvemos la primera cuestión ya 
que podemos lograr que el programa se comporte siempre. de la misma 
forma, pudiendo así corregir los posibles errores. 

b) RANDOMIZE, o su análogo RANDOMIZE f, iS la segunda 
cuestión ya que en lugar de tomar el siguiente punto de la secuencia fija de 
números, como hace RND, salta a otra nueva posición de la secuencia, dada 
por el tiempo de funcionamiento del ordenador. En realidad, cuenta las 
imágenes N presentadas en pantalla hasta ese momento y considera 
RANDOMIZE N. 


Notas: 1) La sentencia RANDOMIZE no es una sentencia BASIC 
propiamente dicha aunque su uso está bastante generalizado. 

2) La utilización de RND y RANDOMIZE para generar números 
aleatorios no es exactamente igual en todos los ordenadores; la descrita 
anteriormente corresponde únicamente al Spectrum, pero en todos demás 
es similar. 


PROGRAMAS PROPUESTOS 


P.48. Hacer un programa que, dado un número positivo, calcule el 
número de cifras que lo forman. 


P.49. Construir un programa que transforme radianes en grados, 
minutos y segundos sexagesimales o viceversa, a elección del usuario. 


P.5fW. Construir un programa que transforme metros en yardas, pies y 
pulgadas o viceversa, a elección del usuario. 


P.51. Un pastor contó sus ovejas. Le sobraba siempre una si las 
contaba de 3 en 3, de 4 en 4, de 5 en 5, de 6 en 6 o de 9 en 9; en cambio, si 
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las cuenta de 7 en 7 no le sobra ninguna. Hacer un programa que calcule el 
número de ovejas que tenía el pastor sabiendo que no superaban el millar. 


P.52. Obtener un programa que imprima en pantalla todos los números 
primos menores que un número dado por el usuario. 


P.53. Elaborar un programa que imprima todos los divisores de 6300 
que sean cuadrados perfectos, y también la suma de todos ellos. 


P.54. Construir un programa que encuentre todos los números 
cuadrados perfectos de 4 cifras, siendo la suma de las cifras 31. 


P.55. Construir un programa que descomponga un número n en sus 
factores primos; por ejemplo, si n= 504 imprimiría 2, 2, 2, 3, 3, 7. 


P.56. Hacer un programa que encuentre el número entero que cumple 
la condición de que el producto de todos sus divisores es 331776. 


P.57. Hallar un programa que calcule todos los pares a, b de números 
naturales que cumplen las dos condiciones siguiente: 


a? — L?= 6484 
med (a, b)= 12 
Nota: Las soluciones son números menores que 304. 


P.58. Construir un programa que permita encontrar todos los números 
de 6 cifras que sean capicuas y cuadrados perfectos. 


P.59. Un número entero positivo se dice perfecto si es igual a la suma 
de todos sus divisores, excepto él mismo evidentemente. Euclides ya 
conocía que los números 6, 28 y 496 son perfectos. M. Kraff elaboró una 
lista de 17 números presuntamente perfectos, en realidad sólo 8 lo eran 
realmente. Los 5 primeros números de su lista eran: 6, 28, 496, 8128, 
130816. Hacer un único programa que compruebe si los números 8128 y 
130816 son perfectos o no. 


P.6f. Dos números se dicen amigos cuando cada uno de ellos es igual a 
la suma de todos los divisores del otro (excepto él mismo evidentemente). 
Los pitagóricos ya conocían que los números 224 y 284 son amigos, y Euler 
dio una lista con 6f parejas de números amigos. 

Construir un programa que nos permita saber si dos números 
cualesquiera son amigos o no. Una vez hecho, comprobar si tenía razón 
Euler (en su lista no incluyó los números 1184 y 121f) y Descartes (afirmó 
que 17296 y 18416 son amigos). 


P.61. La función y = sen x se puede aproximar mediante la serie: 


senx=x—X EX ZO e in 
ay ss 7 


cuando x está expresado en radianes. 

Construir un programa que, dados el ángulo y el número de términos 
del desarrollo que se deseen tomar, calcule el valor del seno de ese ángulo. 
Comprobar que el programa es correcto imprimiendo sen x, y tener 
presente que una buena aproximación exije considerar alrededor de 10 
términos del desarrollo. 
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P.62. Construir un programa que simule la extracción de los tres 
primeros premios de la lotería. Recordar que los números premiados tienen 
que ser distintos. 


P.63. Hacer un programa en que se elijan al azar dos números enteros 
menores que 1/f. Se preguntará cuál es la suma de ambos, si la respuesta 
es incorrecta aparecerá mensaje de error y se repetirá la pregunta; si la 
respuesta es correcta se preguntará cuál es su producto, y se repetirá la 
pregunta si la respuesta es incorrecta. 


P.64. Veamos un juego muy sencillo; el ordenador toma al azar un 
número entero comprendido entre 1 y 1/0. Debemos adivinarlo en un 
máximo de 6 intentos, y en cada uno de ellos se dirá si el' número 
introducido es mayor o menor que el inicialmente tomado. 


P.65. Construir un programa que simule lanzamientos de una moneda, 
deteniéndose estos cuando hayan aparecido n caras consecutivas (siendo n 
un número introducido por el usuario); se imprimirá entonces el número de 
caras y cruces aparecidas hasta entonces. 


Notas: 


1) Comprobar el resultado final imprimiendo tras cada lanzamiento C 
si sale cara o Z si sale cruz. 

2) Este programa se puede transformar fácilmente en un juego en que 
se intente adivinar el número de lanzamientos necesarios para obtener las n 
caras consecutivas. 


P.66. Construir con algunas teclas una “nave espacial”, por ejemplo: 


mmm 
MMAnaaAadMAmmm 
mm mm 


Esta “nave” aparecerá al azar en pantalla, estará un instante, 
desaparecerá y volverá a aparecer, y así indefinidamente. 


Nota: La “nave” deberá aparecer totalmente entera en pantalla; no es 
válido una parte a la derecha de la pantalla y la otra a la izquierda. 


P.67. Supongamos que circunscribimos en un círculo de radio 1 un 
cuadrado; tenemos pues la figura: 


MN 
MZ 
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Sabemos que el área del círculo es PI, pues su radio es uno, y el área del 
cuadrado es 4, pues su lado es 2; por tanto, la probabilidad de que un punto 
del cuadrado esté dentro del círculo será: 


probabilidad = rea del círculo” PI 


área del cuadrado 4 


Elaborar un programa que tome 3000 puntos al azar del cuadrado; 
hallando la frecuencia relativa de que el punto esté en el círculo, y 


multiplicando este valor por 4, se obtiene un valor aproximado de PL 


Notas: 


1) Un punto P (x, y) está dentro del cuadrado si — 1<x<1,—1<y<l, 
y está dentro del círculo si x? + y?< 1. 

2) No es preciso considerar puntos de todo el cuadrado, basta reducir 
los cálculos al primer cuadrante únicamente; con lo cual, las dos 
coordenadas de P estarán en el intervalo [(, 1). 


P.68. Uno de los múltiples juegos de dados es el siguiente: El jugador ' 
lanza dos dados, una o más veces hasta que gana o pierde. 

El jugador gana si: 

a) la suma de los dos puntos del primer lanzamiento es 7 u 11. 

b) la suma de los dos puntos del primer lanzamiento es 4, 5, 6,8,9 o 
10, y al repetir sucesivamente el lanzamiento se obtiene una suma igual a la 
inicial, siempre que no se haya obtenido antes un 7. 

El jugador pierde si: 

a) la suma de los dos puntos del primer lanzamiento es 2, 3 o 12. 

b) la suma de los dos puntos del primer lanzamiento es 4, 5, 6,8,9 o 
10, y al repetir los lanzamientos aparece un 7 antes de que se obtenga la 
puntuación inicial. 


Construir un programa que simule el lanzamiento de los dos dados y 
diga, de acuerdo con las reglas anteriores, si hemos ganado o perdido la 
partida. 


P.69. Elaborar un programa que, dado un número entero positivo con 
un máximo de 8 cifras, lo imprima 22 veces en pantalla, una vez en cada 
línea y siempre totalmente incluído en dicha línea. Se empezará a imprimir 
en una columna aleatoria. 
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CAPITULO 8 


CADENAS 


8.1. Cadenas de caracteres.—Recordemos que un carácter alfa- 
numérico es cualquier signo del tipo siguiente: 

—Digito: Q, 1, 2, 3, ......, 9 

—Letra: a, d,......, z, A, B,......, Z 

—Símbolo especial: (, $, —, ?, etc,; incluido como tal el espacio en blanco. 


Una cadena de caracteres es una sucesión de caracteres alfanuméricos 
escritos entre comillas. Por este motivo, algunos ordenadores no admiten, 
dentro de una cadena, las comillas como tales caracteres; el Spectrum sí 
que las admite, aunque para ello hay que duplicarlas. 

Las cadenas de caracteres pueden tratarse a su vez como variables, de 
manera análoga a las variables numéricas, pero utilizando después del 
nombre de la variable el símbolo del dólar $; por ejemplo, el programa: 


10 LET A$="BASIC” 
20 PRINT A% 
30 STOP 

al ejecutarse muestra en pantalla: BASIC 

y, análogamente, el programa: 


10 LET X$%="123POR"” 
20 PRINT X$ 
0 STOP 


mostraría en pantalla: 123POR 


Nota: En el Spectrum el nombre de una cadena está formado, a 
diferencia de las variables muméricas, por una única letra, seguida del 
simbolo $. 


Ejemplo 1: Consideremos el siguiente programa: 
10 INPUT "CUAL ES TU NOMBRE "3A%$ 
20 INPUT "CUAL ES TU APELLIDO ";B%+ 


30 PRINT "HOLA "3A$5" "3B$ 
40 STOP 


(1 


Si contestásemos a la primera pregunta Juan, y a la segunda Gómez, en 
pantalla aparecería: HOLA Juan Gómez. Wi 

Las cadenas se pueden relacionar entre sí mediante la operación suma, 
también llamada concatenación, que nos da una nueva cadena formada por 
las cadenas unidades entre sí, sin separación entre ellas. 


Ejemplo 2: Sea el siguiente programa: 


10 INPUT "CUAL ES TU NOMBRE "5A$ 
20 LET B$="HABIL" 

3O PRINT A$+B$ 

40 STOP 


Si introducimos el nombre Luis, en pantalla aparece: LuisHABIL 
Ejemplo 3: Si tenemos el siguiente programa: 


10 INPUT "DAME UN NUMERO DE 3 CIFRAS "35A$ 
20 INPUT "OTRO DE 4 CIFRAS "5B% 

30 PRINT A$+B$ 

40 STOP 


e introducimos primero 123, y luego 4567, en pantalla surge el número de 7 
cifras: 1234567. 


8.2. Código ASCIH.—Un ordenador funciona únicamente en sistema 
binario, y evidentemente podemos pasar cualquier número del sistema 
decimal al binario, pero, ¿cómo hacer esto mismo con los caracteres no 
numéricos?. 

Para solucionar este problema se asigna a cada carácter alfanumérico 
un valor numérico para uso interno del ordenador. Esta asignación es 
arbitraria, pero la mayoría de los ordenadores utilizan el código ASCIH 
(American Standar Code for Information Interchange = Código Standar 
americano para intercambio de información), que vemos a continuación: 


CcoDIGo ASCII 


n 
NN] 


* 
0+.u0 
A 


0 
0 
*XUIM$XDUIROO 
horno” vXDHDUR “-p 
"E N2>.ONDCO 
Ma - -2T0/4APO0Oa44A+*> 
ZE 00 Is 


Blpnvro>nn0ox0- 
hmaYC302C2Z3M01x09 


P:r<3.>30Z27:0+ 


HAdosoo|] 
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El código de cada carácter viene dado por la suma de los números 
correspondientes a la fila y columhña en que se encuentra situado; así, por 
ejemplo, el código asignado al número 6 es 54, el código asignado al 
símbolo = es 61, el asignado a fes 102, etc. 


Notas: 


1) Observar que las letras mayúsculas tienen distinto código que las 
minúsculas; por ejemplo, el código de A es 65 y el de a es 97. 

2) En el código ASCII sólo se encuentran las letras del alfabeto inglés; 
faltan por tanto las letras: ch, ll, ñ. 

3) Aparte de este código cada fabricante asigna, en especial para sus 
símbolos gráficos, otros valores generalmente en la parte alta de la tabla, a 
partir de 122. Los comunes a casi todos los ordenadores son los 
comprendidos entre el 32 (espacio en blanco) y el 122 (z). 

La asignación de valores numéricos a los caracteres permite definir una 
nueva relación entre cadenas, sin más que comparar sus códigos; así, por 
ejemplo: 

a$ < b$ expresa que el primer carácter, empezando por la izquierda, 
de a$ tiene un código inferior al primero de b$ o, en caso de ser iguales, 
será superior el código del carácter de b$, correspondiente al primero en 
que difieran. 


Ejemplo 4: Si más que observar el código ASCII se puede ver que son 
ciertas las siguientes relaciones: 


“Ems < Luz” “Luis” < “luis” 
“Luis” < “Pepe” “123"< “abc” 
A 
Análogamente se pueden definir para cadenas los operadores: 
>)=,>=,<=,<> 
Ejemplo 5: El siguiente programa ordena alfabéticamente dos nombres: 


10 INFUT A$, BS 

20 1F A$<B$ THEN GO TO 40 
30 PRINT B$,A+$: GO TO 50 
40 PRINT A$,B+$ 

50 STOP 


8.3. Funciones de cadena.—Veamos a continuación una serie de 
instrucciones aplicables únicamente a variables de cadena: 


LEN A$: Como su nombre indica (LENgth = longitud), esta función da 


el número de caracteres con que cuenta la cadena A$, incluídos como tales 
los espacios en blanco. 
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Ejemplo 6: En el siguiente programa: 


10 INPUT "CUAL ES TU NOMBRE "3A% 
20 LET L=LEN AS 

30 PRINT L 

40 STOP 


si introducimos Luis, en pantalla aparecerá 4; si introducimos María Rosa 
aparecerá 10. 

Nota: En la mayoría de los ordenadores es preciso que el argumento de 
esta función, y de las siguientes, vaya entre paréntesis. En el Spectrum esto 
no es necesario, aunque.a veces es conveniente en aras de una mayor 
claridad en el programa. 

CODE A$: Nos da el código ASCII que posee el primer carácter de la 
cadena A$. En otros ordenadores esta función se denomina ASC (A$) o 
también ASCI (A$). 


Ejemplo 7: Si ejecutamos el programa: 


10 LET A$="LUIS" 
20 LET B$="ANA" 
30 PRINT CODE A$;CODE B$3CODE (A$+B%) 
40 STOP 


en pantalla aparecerá: 766576. 

CHR$ X: Es la función inversa de la anterior; dado un número X, se 
obtiene el carácter correspondiente a ese número en el código ASCII, 
siempre que exista ese número en el código. 


Ejemplo 8: Al ejecutar el programa: 


10 PRINT CHR$ 505 

20 PRINT CHR$ 365 

30 PRINT CHR$ (CODE "PEPE”"); 
40 PRINT CHR$ (CODE "12"+w2) 
50 STOP 


en pantalla aparecerá: 2 $ Pb. 


Ejemplo 9: Al efectuarse el siguiente programa aparecen en pantalla 
todas las letras minúsculas del alfabeto inglés. 


10 FOR X=97 TO 122 
20 PRINT CHR$ X5 
30 NEXT X 

40 STOP 
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VAL A$: Considera como variable numérica la parte numérica (VALue 
= valor) de la cadena, siempre que no esté precedida de un carácter no 
numérico. 


Ejemplo 10: Consideremos el programa: 


10 LET A$="25" 
20 PRINT VAL As; 

30 PRINT 3*VAL A$; 
30 LET B$="12" 

50 PRINT VAL (B$+A%$) 
60 STOP 


al ejecutarse, en pantalla aparece: 25751225. 


Nota: En el Spectrum sólo se puede emplear cuando todos los 
componentes de la cadena son numéricos y/o aparecen operaciones 
numéricas. Así, por ejemplo, no admite: 


10 LET A$="25 AZ" 
20 PRINT VAL As 


que sí que es admitido por gran parte de los ordenadores. 


STR$ X: Es la función inversa de la anterior (STRing = cadena); 
transforma el número X en la cadena formada por los dígitos de X. 


Ejemplo 11: Sea el programa: 


10 LET X=15 

20 LET Y=7 

30 LET A$="JUAN" 

40 LET B$=STR$ (X-Y) 
SO PRINT A$+Bs 

60 STOP 


en pantalla aparece: Juan 8. 


8.4. Troceado de cadenas en el Spectrum.—El manejo de las funciones 
de cadenas se realiza en el Spectrum de una forma muy eficaz, aunque 
distinta al BASIC de la mayoría de los ordenadores ya que no admite las 
funciones LEFT $, RIGHT $ y MID $. El Spectrum unifica estas tres 
instrucciones en una única instrucción: TO. 

Su expresión genérica es: 


A$ (X TO Y), que obtiene la subcadena formada por todos los 
caracteres de la cadena A$ desde el carácter número X hasta el número Y, 
ambos incluidos. Admite 3 simplificaciones: 


A$ (X TO), es la subcadena formada por todos los caracteres de A$ 
desde el número X hasta el último. Es el equivalente a A$ (X TO LEN A$). 
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A$ (TO Y), es la subcadena formada por todos los caracteres desde el 
primero al número Y. Es el equivalente a A$ (1 TO Y). 

A$ (Z), es la subcadena formada únicamente por el carácter que ocupa 
el lugar Z. Es el equivalente a A$ (Z TO Z). 
- Observar pues, que cuando no se indica el comienzo o el final del 
troceado se supone que es el primer o el último carácter respectivamente. 
Así, A$ (TO) es la cadena A$ completa. 


Ejemplo 12: Introduce en el ordenador: 


10 LET A$="AUTOBUS"” 
20 PRINT A$+(1) 

30 PRINT A$(7) 

40 FRINT A$(3) 

50 PRINT A$(1 TO 4) 
60 PRINT A$(3 TO 5) 
7O PRINT A$(S TO 7) 
80 PRINT A$( TO 4) 
90 PRINT A$(5 TO > 
100 PRINT A$( TO ) 


Observa la pantalla y analiza los diversos resultados que aparecen en 
ella de acuerdo con lo anteriormente expuesto. 


Notas: 


1) Instrucciones como PRINT A$(7 TO 1) no las admite el Spectrum, 
pero para conseguir el mismo efecto lo haremos en la forma: 


10 LET A$="RAPALOS" 

20 FOR X=7 TO 1 STEP -1 
30 PRINT A$(X)5 

20 NEXT X 


2) Los espacios también cuentan dentro de una cadena. Así: 


10 LET A$="MARZO DE 1984” 
20 PRINT A$(6) 
30 STOP 


imprime un espacio en blanco. 
3) Si tenemos definida una cadena, parte de ella se puede cambiar: 


10 LET A$="AUTORBUS” 

20 PRINT A$ 

30 LET A$(1 TO 2)="XX" 
60 LET A$16 TO 7)="XX" 
7O PRINT As 

80 STOP 


y veremos que la variable ha cambiado de “autobús” a “XXTOBXX"”. 
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4) El troceado de cadenas se consigue en la mayoría de los 
ordenadores, no en el Spectrum, mediante las funciones: 


LEFT $ (A$, N), es la subcadena formada por los N primeros, 
empezando a contar por la izquierda, caracteres de la cadena A$. LEFT = 
izquierda. 

RIGHT $ (A$, N) es análoga a la anterior, pero los N caracteres los 
toma empezando a contar desde la derecha (RIGHT = derecha). Es decir, la 
subcadena está formada por los N últimos caracteres de la cadena AS. 

MID $ (AS, X, Y), forma la subcadena con los Y caracteres de A$ que 
están a partir de la posición X (MIDdle = intermedio). 


PROGRAMAS PROPUESTOS 


P.7f. Escribir un programa que permita calcular la media de tres 
números dados, considerando cada uno de ellos como una cadena. 


P.71. Una clave muy sencilla que emplean los niños en sus juegos, para 
codificar mensajes, es el siguiente código. Tomar la primera letra que 
conforma cada palabra y colocarla al final, añadiendo una o. Por ejemplo, 
la palabra “hombre” en este código sería “ombreho”. Construir un 
programa que transforme cualquier palabra siguiendo este código. 


P.72. Haz un programa que permita escribir cualquier palabra, antes 
introducida, en orden inverso, de derecha a izquierda. Por ejemplo, si 
introducimos la palabra BASIC, debe mostrar en pantalla CISAB. 


P.73. Hacer un programa que nos diga a que conjugación pertenece un 
verbo dado. 


P.74. Construir un programa que vuelva a escribir una frase intro- 
ducida anteriormente, habiendo suprimido los espacios en blanco que 
tuviera inicialmente. 


P.75. Hacer un programa que cuente, dada una frase cualquiera, el 
número de veces que aparece cada una de las 5 vocales. 


P.76. Dada una frase cualquiera, sin signos de puntuación para hacerlo 
más sencillo, construir un programa que cuente el número de vocales, 
consonantes y espacios en blanco que la forman. 


P.77. Dado un verbo regular de la primera o segunda conjugación 
escribir, mediante un programa, su presente de indicativo. 


P.78. Construir un programa que, dada una frase y una letra o 
carácter, nos diga cuántas veces aparece dicha letra o carácter, y en qué 
posiciones se encuentra. 


P.79. Construir un programa que cuente el número de caracteres que 
forman una frase. El método a seguir es calcular la longitud de la frase y 
restarle el número de espacios en blanco. 


P.8). Construir un programa que imprima una frase, introducida 
anteriormente, intercalando entre cada dos caracteres un guión. 
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P.81. Una aplicación del código ASCII es la escritura en clave. El 
método a seguir es muy sencillo: se escribe la frase y se codifican cada uno 
de sus caracteres en el código ASCII, sumándoles a todos los códigos un 
número prefijado N; se escribe la frase correspondiente a los nuevos 
códigos y se envía a quien deseemos. 

El receptor para descifrar el mensaje recibido, tendrá que realizar el 
proceso inverso: codificarlo, restar N a todos los códigos y volver a 
codificar. 

Construir un programa que escriba cualquier frase en clave. 


P.82. Hacer un programa que imprima una palabra dada, pero si nos 
equivocamos y tecleamos Q en lugar de 0, se sustituirá Q por una letra 
mayúscula obtenida al azar. 


P.83. Construir un programa que imprima una palabra dada solamente 
si contiene la letra b. 


P.84. Elaborar un programa que, dado el número de cualquier mes, 
nos imprima su nombre. 


P.85. Dada una palabra cualquiera, compuesta por 4 letras distintas, 
hacer un programa que escriba todas las palabras de 4 letras distintas que 
se pueden formar con las 4 dadas, tengan o no significado. 


P.86. Una clave muy sencilla, inclusive usada en publicidad, es aquella 
que sustituye todas las vocales por la letra i. Por ejemplo, la palabra 
“limonada” se transforma, según esta clave, en “liminidi”. Construir un 
programa que codifique cualquier frase según esta clave. 


P.87. Hacer un programa que compruebe con cualquier número entero 
positivo el siguiente resultado, obtenido por Giamblico de Alejandría en el 
siglo IV: 


Dado un número se multiplica por 3; sumamos a este número, así 
obtenido, su inmediato anterior y el anterior a éste (Por ejemplo: si el 
número inicial es 9, sumamos 27, 26 y 25). Sumamos ahora las cifras del 
número resultante de la suma (en nuestro ejemplo 7 y 8). Si el nuevo 
número tiene varias cifras, las volvemos a sumar. Reiteramos el proceso 
hasta obtener un número de una única cifra: ésta será siempre 6. 
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CAPITULO 9 


DIMENSION 


9.1. Listas.—Supongamos que estamos trabajando en un programa en 
el cual aparece una serie de números, por ejemplo 2/0, y nos interesa 
conocer el número que ocupa un lugar determinado, ». 

Este problema que se nos plantea es ciertamente irresoluble, o al menos 
prácticamente lo es, con los operadores e instrucciones conocidos hasta 
ahora. 

¿Cómo resolveríamos este problema si se nos planteara a nosotros?. 
Quizá la forma más cómoda, muy utilizada en cálculo científico, sea 
denominar cada uno de los 2M4f números con una misma letra y un 
subíndice que indica el lugar que ocupa en la lista. Esta quedaría en la 
forma: 


0, O NI ,X 199, X200 


así, cuando se nos pide el término que ocupa el lugar n, nosotros 
imprimiríamos el valor de x... 

Esta misma idea es la utilizada en BASIC para resolver problemas 
similares al anterior (todos aquellos en que se manejan series de términos e 
influye su ordenación): utilizar variables con subíndices; aunque, claro está, 
la notación deberá ser distinta y en lugar de escribir x, se indicará x(n). 

Las variables con subíndice permiten manejar datos de una manera ya 
masiva, en contraposición a las variables estudiadas hasta ahora que 
tomaban un único valor en cada instante. Pero, en BASIC, para poder 
utilizar variables con subíndices antes hay que “dimensionar” el conjunto de 
variables; es decir, indicar cuántas variables con subíndices vamos a 
emplear. Esto se consigue mediante la proposición DIM (DIMensión), cuya 
expresión genérica es: 

(Núm. de línea) DIM nombre de la variable (núm. de subíndices). 

Así, por ejemplo DIM A(5) indica que podemos definir 5 variables: A(1), 
A(2), AB), A(4) y A(5), para cada una de las cuales se ha reservado un 
bloque de memoria. 


En general, DIM A(n) reserva n bloques consecutivos de memoria y, 
¡ATENCION! les asigna a las n-variables A(1)............. , A(n) el valor CERO 
inicialmente. 


Se pueden dimensionar variables en cualquier parte del programa, pero 
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siempre antes de que éstas aparezean, por lo cual se suelen dimensionar al 
comienzo para evitar errores. 

Se denomina lista al conjunto de todas las variables con subíndices del 
mismo nombre. También se les da, a veces, el nombre de vector, arreglo de 
una dimensión, tabla unidimensional o matriz de una dimensión. 


Nota: El índice de la proposición DIM debe ser un número entero 
positivo o también cualquier expresión factible de ser evaluada. Algunos 
ordenadores, incluído el Spectrum, caso de no ser un número entero 
consideran su parte entera. 


Ejemplo 1: Vamos a resolver el problema comentado al principio del 
capítulo: Géneremos en primer lugar (bucle 2/-4f) la lista de 204 números, 
por ejemplo todos ellos enteros menores que 14.90, para lo cual primero 
tendremos que dimensionar la lista (línea 19): 


10 DIM Xx (200) 
20 FOR I=i TO 200 
3O LET X(1)=INT (10000*RND) 


40 NEXT 1 


y para imprimir el término que ocupa el lugar n (término n-ésimo) 
introducimos las líneas: 


50 INPUT "LUGAR "3N 
60 PRINT X1N) 
7O STOP 


Ejemplo 2: Si deseásemos calcular la suma y el producto de los 244 
números generados en el ejemplo anterior, bastaría suprimir las líneas 54, 
64 y 74 e introducir: 


50 LET S=0: LET P=1 

60 FOR I=1 TO 200 

ZO LET S=S+X(1): LET P=PxX(1) 

80 NEXT 1 

90 PRINT "SUMA "355" PRODUCTO "5P 
100 STOP 


_ Ejemplo 3: El siguiente programa permite introducir (bucle 24-44) una 
lista de 19 números (dimensionada en la línea 19) y la imprime en orden 
inverso (bucle 59-78): 


10 DIM A(10) 

20 FOR I=i TO 10 

30 INPUT ACI) 

240 NEXT 1 

50 FOR 1I=10 TO 1 STEP 1 
60 PRINT A(I) 

7O NEXT 1 

380 STOP 
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Notas: 

1) El nombre de una lista debe estar formado por una única letra, y 
éste nombre puede ser en el Spectrum, pero no en todos los ordenadores, el 
mismo que ya tiene alguna variable numérica. 

2) En algunos ordenadores, no es el caso del Spectrum, si la dimensión 
no supera a 10 no es necesario el indicarla. 

3) En algunos ordenadores los bloques de memoria reservados se 
empiezan a contar desde f; así, DIM A(4) guardaría 5 posiciones de 
memoria: A (9), A(1), A(2), AB) y A(4). En el Spectrum, como se ha indicado 
anteriormente, los subíndices comienzan en 1. 


9.2. Ordenaciones.—Una de las aplicaciones más comunes de las 
variables con subíndices es ordenar una lista de números. Hay varios 
métodos que permiten ordenar de menor a mayor una lista de n números; 
los más sencillos son: intercambio, inserción y selección. 


Ejemplo 4: Método de ordenación mediante intercambio: Este Mmewdo 
consiste en comparar dos números colocados consecutivamente en la lista; 
si el posterior es menor, intercambiamos sus posiciones, en caso.contrario 
los dejamos en el mismo orden en que estaban. Repetimos este proceso 
para cada par de elementos y así colocamos el mayor en la última posición 
de la lista. 

Si reiteramos el proceso anterior, colocaremos el mayor de los que 
quedan, sin considerar el último, en penúltima posición. Seguimos 
reiterando el proceso hasta obtener una ordenación total de los elementos. 

El programa que desarrolla este método es el siguiente: 


10 INPUT "NUMERO DE TERMINOS "5N 
20 DIM X(N) 

25 REM INTRODUCIR LOS NUMEROS 
30 FOR Y=1 TO N 

40 INPUT X(Y) 

50 NEXT Y 

60 REM ORDENAR LOS NUMEROS 

7O FOR I=i TO N-1 

30 FOR J=i1 TO N-1 

90 LET A=X1(J): LET B=X(J+1) 
100 IF A<=B THEN 60 TO 120 
110 LET X(J)=B: LET X(J+1)=A 
120 NEXT J 
130 NEXT 1 
140 REM IMPRIMIR LA TABLA 
150 FOR Y=1 TO N 
160 PRINT X(Y) 
170 NEXT Y 
180 STOP 
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Ejemplo 5: Método de ordenación mediante selección: Se puede 
considerar como una mejora del anterior. Consiste en seleccionar el mínimo 
y colocarlo al principio de la lista, luego el mínimo de los restantes y 
colocarlo en segundo lugar, y así reiteradamente hasta ordenar la lista. 

También podríamos ordenar mediante selección tomando el máximo y 
colocándolo en último lugar y reiterar el proceso. E incluso, se podía haber 
simultaneado la busqueda de máximo y mínimo en un único proceso. 

El programa que desarrolla este método es el siguiente: 


Las líneas 14-60 y 144-188 'son las mismas del ejemplo 4. 


70 FOR I=1 TO N-1 

80 LET M=1I  : 

90 FOR J=1+1 TO N 

100 IF X(M)>X(J) THEN LET M=J3 

110 NEXT J 

120 LET A=X(1)s LET X(1)=X(M): LET X(M)=A 
130 NEXT 1 


En el bucle 90-110 buscamos el mínimo valor X(M) desde el lugar I 
hasta el final. En la línea 120 intercambiamos entre sí el X(I) con el mínimo 
X(M). 


Ejemplo 6: Método de ordenación mediante inserción: El método 
consiste en ordenar la lista insertando de uno en uno cada elemento en el 
lugar que le corresponde. En primer lugar ordenamos los dos primeros, 
tomamos el tercero y lo insertamos en el lugar 1, 2 o 3, según le 
corresponda comparándolo con el primero y segundo. Seguimos reiterando 
el proceso con los restantes elementos de la lista. 

Este método es el que se sigue normalmente para hacer un fichero o 
para introducir una ficha nueva en un fichero ya ordenado alfa- 
béticamente. 

El programa que desarrolla este método es el siguiente: 


Las líneas 19-64 y 140-189 son las mismas del ejemplo 4. 


7O FOR I=1 TON 

80 FOR J=1 TO I-1 

90 1F X(J)<=X(1) THEN GO TO 125 
93 LET A=X(1) 

100 FOR K=1 TO J+1 STEP -1 

110 LET X(K)=X(K-1) 

115 NEXT K 

120 LET X(J)=Az GO TO 130 

125 NEXT J 

130 NEXT 1 


Notas: 


1) Tomar una lista de 1Q números y ordenarla, de menor a mayor, en 
un papel siguiendo cada uno de los tres métodos anteriores; así se 
comprenderá enseguida cual es la mecánica de cada uno. 


82 


2) Si has hecho lo anteriormente indicado, te habrás percatado de cuál 
de los tres métodos es más rápido; de todas formas, como ejercicio, puedes 
cronometrar (si es posible, con el reloj interno del ordenador) el tiempo 
que se tarda, con cada uno, en ordenar una lista dada. 


9.3. Matrices.—El BASIC también permite trabajar con variables que 
posean dos o más subíndices, permitiendo por ello tratamientos más 
completos de datos. En el cálculo numérico y científico el uso más común 
de variables con dos subíndices son las matrices, de aquí el nombre de las 
variables bidimensionadas. 

Una matriz mxn es una tabla, o cuadro, ordenada de números formada 
por m filas de números, y cada una de estas con n números. Por ejemplo, 
una matriz 3x4 estará formada por 3 filas y cada una tendrá 4 números 
(diremos que tiene 3 filas y 4 columnas); su expresión general es: 


ar a12 a13 A14 
a21 az a23 A24 
a31 a32 a33 A34 


y empleamos la notación, a, para indicar el elemento situado en la 
intersección de la fila iy la columna j. 

Aunque esta idea de matriz parece un concepto muy abstracto, en 
realidad lo utilizamos muy corrientemente: siempre que indicamos un 
elemento mediante 2 números. Por ejemplo: 


—a, podría ser el equivalente a la casilla de la pantalla correspondiente a 
la fila i y la columna j j, 

—Al analizar notas de alumnos, a, podría entenderse como la nota del 
alumno i en la asignatura número y utilizando 3 subíndices a,, podría 
servirnos para indicar la nota del alumno i, en la asignatura j y en la 
evaluación k. 

—En una cadena de establecimientos, a, podría ser el beneficio obtenido 
por la tienda número i en el día j. 

—En economía, a, podría significar la producción del artículo número i 
en la provincia número j. 


En BASIC, para estudiar problemas del tipo anterior, se utilizan matrices 
aunque, por imposibilidad de impresión, en lugar de indicar con a, el 
elemento que ocupa la fila i y la columna ¡ de la matriz, se denota con 
a(1)). 

Para poder trabajar con variables de 2 o más subíndices hay que 
dimensionar anteriormente el conjunto de las variables, empleando también 
la proposición DIM, cuya expresión genérica, en el caso de 2 subíndices, es: 

(Núm. línea) DIM nombre de la variable (núm filas, núm. columnas). 

Así, por ejemplo, DIM A(2, 4) indica que podemos definir 2 x 4 = 8 
variables: A(1, 1), A(1, 2), A(1, 3), AC, 4), AQ, 1), AQ, 2), AQ, 3) y AG, 4), 
reservándose por tanto 8 posiciones de memoria para otras tantas variables. 


Nota: Como en el caso de las variables con un subíndice, si tenemos DIM 
A(n, m) las nxm variables se inicializan automáticamente al valor cero; y, 
m, n deben ser enteros positivos. 
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Se llama matriz al conjunto de todas las variables, con dos o más 
subíndices, del mismo nombre. También se les llama tabla, matriz 
bidimensional o arreglo. 


Nota: Tener presente que para manipular matrices necesitaremos al 
menos dos bucles encajados: uno para las filas y otro para las columnas. 


Ejemplo 7: En el siguiente programa se introduce una matriz y se 
imprime la suma de todos sus elementos: 


10 INPUT "NUMERO DE FILAS "35M 

20 INPUT "NUMERO DE COLUMNAS "5N 
3O LET S=0 

40 DIM A(M,N) 

50 FOR I=1 TO M 

60 FOR J=1 TO N 

70 INPUT ("A("5153","5353")= ")534(1,J) 
30 LET S=S+A(1,J). 

90 NEXT J 

100 NEXT 1 

110 PRINT TAB 55"LA SUMA ES "35 
120 STOP 


en la línea 34 se inicializa la suma y en la 44 se dimensiona la matriz. El 
bucle 69-94 introduce los elementos de la matriz y los suma por filas; el 
bucle 54-148 suma todas las sumas de las filas. 


Ejemplo 8: El siguiente programa imprime una matriz 7 x 7 unidad. Una 
matriz se dice unidad cuando todos sus elementos son nulos excepto los de 
la diagonal principal (A(1, 1), AQ, 2)......... A(7, 7)) que valen 1. 


10 DIM A(7,7) 

20 FOR I=1 TO 7 

30 FOR J=1 TO 7 

40 LET A(1,1)=1 | 
50 PRINT A(I.D)3 7" 75 
60 NEXT J 

70 PRINT ”?” 

80 NEXT 1 

90 STOP 


En la línea 14 se dimensiona la matriz, y en la 49 se dan valores a los 
elementos de la diagonal principal; no es preciso definir los restantes valores 
pues al dimensionar se inicializan a cero. El bucle 20-80 efectúa la 
impresión, mejorando la presentación con las líneas 54 y 70. 


Ejemplo 9: El siguiente programa forma una matriz 7 x 7 con números 
enteros del Y al 9 tomados al azar, la muestra en pantalla y halla el número 
de elementos pares y el número de ceros de la diagonal principal. 
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10 
20 
30 
40 
50 
60 
7O 
80 
90 
100 
110 
120 
130 


DIM A(7,7): LET P=0: LET C=0 
FOR I=1 TO 7 

FOR J=1 TO 7 

LET A(1,J)=INT (10%RND) 


IF INT (A(1,3)/2)=A(1,3)/2 THEN LET P=P+1 
PRINT At1.J5" "5 

NEXT J 

PRINT >> 

IF A(1,1)=0 THEN LET C=C+1 

NEXT 1 

PRINT AT 18,0;3"HAY "5P5" PARES" 


PRINT AT 20,053"HAY "5C5" CEROS EN LA DIAGONAL" 
STOP ú 


En la línea 1f se dimensiona la matriz y se inicializa el contador de 
pares y ceros. En la 4 se toman al azar los elementos de la matriz; 
contándose, en la línea 5f, los pares y en la 94 los ceros de la diagonal. Se 
A matriz con la 69 y 80; dándose los datos finales con las líneas 
119 y 120. 


Ejemplo 14: En una clase hay 2f alumnos y tienen todos ellos 6 
asignaturas, el siguiente programa pide las notas de cada alumno por 
asignatura e imprime el número de suspensos en cada una de ellas. 


10 DIM A(20,6): DIM 516) 

20 FOR 1=1 TO 20 

30 PRINT "ALUMNO NUMERO "51 

40 FOR J=1 TO 6 

50 PRINT AT 2*J3,03 "ASIGNATURA "3J, 
60 INPUT "QUE NOTA TIENE "5A(1,J) 

70 PRINT A(1,.,J) 

380 IF A(1,J)<5 THEN LET S(J)=S(J)+1 
90 NEXT J 
100 CLS 
110 NEXT 1 
120 PRINT "NUMERO DE SUSPENSOS" 
130 FOR K=1 TO 6 
140 PRINT AT 2x*K,05"ASIGNATURA "3k,S(K) 
150 NEXT K 
160 STOP 


En la línea 18 se dimensionan las notas y el número de suspensos por 
asignatura, que se calculan en la línea 84f y se imprimen en el bucle 130-158. 


Notas: 


1) El nombre de una matriz debe ser una única letra, no pudiendo 
definirse dos matrices con el mismo nombre, aunque tengan distintas 
dimensiones. Dimensión es el número de subíndices de las variables. 
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2) Algunos ordenadores, no es el caso del Spectrum, si no se 
dimensiona se supone que la matriz es 10 x 10. En algunos otros, tampoco 
en el Spectrum, A(n, m) tiene (n + 1) x (m + 1) variables, pues también 
definen A(Q, p) y Ala, 0). 


9.4. Cadenas dimensionadas.—En BASIC también se pueden definir 
variables de cadena con subíndices, siendo su funcionamiento análogo al de 
las variables numéricas; así, DIM A$(30) reserva memoria para 30 variables 
alfanuméricas: A$(), std , AS$(0). De igual forma se pueden definir 
matrices de 2 o más dimensiones para cadenas: así, por ejemplo, en un 
almacén AS(i, j) podría indicar el nombre del artículo número i del estante j; 
en un bloque de pisos, podría ser el nombre del vecino del piso i en la 
planta j. 

Su manejo en el BASIC de uso más extendido es, repetimos, similar al 
de las variables numéricas; sin embargo, en el BASIC del Spectrum, y en el 
de otros ordenadores, el tratamiento es diferente. 


Matrices de cadenas en el Spectrum: En el Spectrum es necesario 
especificar, al dimensionar la lista o matriz, el número máximo de 
caracteres que pueden tener sus elementos. 

Si deseamos disponer de una lista de 34 Halibras y la más larga tiene 12 
caracteres, tendríamos que introducir: 


DIM A$(34, 12) 


reservándose así 30 variables con un máximo de 12 caracteres en cada una, 
manejándose posteriormente exactamente igual que las listas numéricas, 
pero utilizando únicamente el primer subíndice. Si la cadena introducida 
tiene menos de 12 caracteres, el resto hasta completarlos son espacios en 
blanco (asignación procrusteana). 

Notas: 

1) La matriz de cadenas se designa con una única letra, y al 
dimensionar se inicializan todas las variables a “ ” 

2) En general DIM Af(p, q) reserva p posiciones de memoria para 
cadenas con un máximo de q caracteres. 

3) Si no se indica la longitud de la cadena, el Spectrum supone que 
es 1. 

Ejemplo 11: Dada una lista de 1f palabras de 4 letras, el siguiente 
programa imprime la primera de ellas en orden alfabético: 


10 DIM A$(10,4) 

20 FOR I=1 TO 10 

30 INPUT "ESCRIBE LA PALABRA "3A$(1) 
40 NEXT 1 

50 LET k=1 

60 FOR I=2 TO 10 

70 1F AS(K)>AS(I) THEN LET k=1 

80 NEXT 1 

90 PRINT "PRIMERA PALABRA "3A$(K) 
100 STOP 
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En la línea 19 se dimensionan las cadenas, que se introducen en el bucle 
20-40). El bucle 50-84 encuentra la primera palabra, que se imprime por la 
línea 90. 


Notas: 


1) Supongamos que en el ejemplo anterior A$(1) = “alce” podemos 
fragmentar esta variable utilizando una notación similar a la empleada para 
dimensionar, así: : 


AS(l, 2) = qa y, ASC, 3) == “o” 


y, en general, A$(i, p) es el carácter que ocupa el lugar p en la cadena A$(); 
es decir, lo que hasta ahora notábamos por A$(i)N(p). En este segundo 
subíndice también se puede utilizar TO, y así tendríamos: 


A$(1,2 TO 3)="lc” y,  AS(1, TO 3)=“alc” 


y, en general, AS(i, p TO q) es equivalente a A$() (p TO q). 

2) Según hemos visto, A$(i) puede indicar tanto la variable i como el 
carácter i de A$; también ASG, j) indica tanto que dimensionamos ¡ variables 
de longitud j como el carácter j de la variable i. Para evitar confusiones, el 
Spectrum impide que tengan el mismo nombre matrices o listas de cadenas 
y variables de cadenas sin subíndices: al introducir DIM A$(b,, b,, by........, b) 
(matriz de cadenas de longitud fija b, y n—1 dimensiones b,, b,,...., ) 
automáticamente se borran todas las variables o cadenas llamadas AS$. 


n—1 


PROGRAMAS PROPUESTOS 


P.88. Construir un programa que encuentre los términos mayor y 
menor de una lista dada, y el lugar que ocupan en esa lista. 


P.89. Elaborar un programa que permita calcular los n primeros 
números primos, siendo n introducido por el usuario. Posteriormente se 
indicará un lugar m (m < = n) y se imprimirá el m-ésimo número primo. 

P.90. Hacer un programa que calcule la media aritmética y la 
desviación típica de una serie de n términos Xy, Xoye......., X 


P.91. La pantalla del Spectrum se puede considerar como una matriz 
22x32 (22 filas, 32 columnas). Construir un programa que imprima al azar 
100 asteriscos en los 704 cuadrados posibles. Tener presente que no se 
impriman dos asteriscos en un mismo cuadrado. 


P.92. Construir un programa que sume dos matrices cualesquiera. La 
matriz suma es aquella cuyo término (i, j) es la suma de los términos (i, j) 
de las matrices dadas. 


P.93. Hacer un programa que multiplique dos matrices dadas A y B. Es 
necesario que el número de columnas de A sea igual al número de filas 
de B. 


P.94. Construir una matriz 7 x 7 al azar con números tomados entre Q 
y 99. Si el número tiene dos cifras se imprimirá un asterisco y, dadas su 
fila y columna, se imprimirá el número correspondiente en la parte inferior 
de la pantalla. 
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P.95. Elaborar un programa que, dada una matriz 5 x 3 de números 
enteros de una cifra, imprima en pantalla simultáneamente dicha matriz y 


su transpuesta. En la transpuesta el lugar (i, j) lo ocupa el término (j, i) de la 
dada. 


P.96. Construir aleatoriamente una matriz cuadrada 9 x 9 con los 
dígitos 1, 2,......, 9. Imprimirla y calcular el producto de todos los elementos 
de la diagonal principal y el producto de la secundaria. 


P.97. El albúm de cromos de “El Capitán Rosa” consta de 99 unidades. 
Simular mediante un programa el número de cromos que se necesitaría 
comprar para completar el albúm. Imprimir en una tabla 9 x 11 las veces 
que nos ha aparecido cada cromo de la colección. 


P.98. Construir un programa que calcule el valor numérico de un 
«u_» 


polinomio para un valor “a” cualquiera. Tomar en cuenta que “a” también 
puede ser negativo. 


P.99. Hacer un programa que calcule el módulo, la suma y el producto 
escalar de 2 vectores. 


P.100. La publicidad de un supermercado decía: “Vendemos 1000 
tabletas de chocolate y hemos repartido al azar entre ellas 22 cromos, 
pudiendo haber en cada tableta más de un cromo. Si su tableta contiene al 
menos un cromo su compra será totalmente gratuita”. . 

Si en realidad los cromos se reparten al azar, construir un programa 
que indique, por simulación, cuántas personas se benefician de la gratuidad 
de la compra. ; 


P.1f91. Cuatro empedernidos jugadores quieren jugar al tute, pero no 
disponen de baraja. Hacer un programa que reparta 1f cartas, eviden- 
temente distintas, de la baraja española a cada uno de los 4 jugadores. En 
pantalla aparecerán las cartas del primer jugador, pulsando una tecla las 
del segundo, y así sucesivamente. 


P.192. Elaborar un programa que permita realizar el siguiente juego: 
Dada la tabla: 


el jugador elige la fila, 1 o 2, y el ordenador al azar elige la columna, 1 o 2. 
La cantidad correspondiente a dicha fila y columna se le suma al jugador y 
se le resta al ordenador. Suponer, por ejemplo, que ambos empiezan con 1 
ptas, el programa deberá llevar la contabilidad de los jugadores y finalizará 
cuando uno de los dos se quede sin dinero. 


P.103. Hacer un programa que simule gráficamente una carrera de 4 
galgos, numerados del 1 al 4. Se lanzan 3 monedas y se cuenta el número 
de caras que han salido, se le suma 1 a este número y el galgo 
correspondiente avanza una casilla (simular el avance mediante asteriscos). 
Gana el galgo que alcance primero la columna 30, donde estará dibujada 
gráficamente la meta. Indicar con un mensaje cuál es el galgo ganador. 
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P.184. Construir un programa que imprima, hasta la fila que se desee, 
el triángulo de Tartaglia: 


Arrrrrrrrrrrrrrcrrrcrsss.. 


Prrrrrrcrrrrrrccrcrnaro... 


El triángulo de Tartaglia se obtiene de la siguiente forma: El elemento 
que ocupa el lugar j en una fila cualquiera es la suma de los elementos que 


ocupan los lugares j y j—1 de la fila anterior, siendo siempre 1 el primer y 
último elemento de cada fila. 


P.105. En el programa P.26 ya vimos una forma de calcular el número 
combinatorio ( 2 ) 


Otro algoritmo que también permite calcularlo es el basado en la 
relación 
my _gfm-—1 m— 1 
( n ) B ( n ) +( n. + 
Sabiendo además que para cualquier número p se tienez( A ) = (5) l. 


Construir un programa que siga este algoritmo. 


P.106. Hacer un programa que ordene alfabéticamente una lista de 
palabras con, por ejemplo, un máximo de 1f letras cada una. 
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CAPITULO 10 


SUBRUTINAS 


10.1. GOSUB-RETURN.—Anteriormente hemos empleado DEF FN 
para repetir un mismo cálculo varias veces, pero a menudo lo que se repite 
no es un cálculo sino una serie de instrucciones. Se llama subrutina, o 
también subprograma, a esta serie de sentencias que se ejecutan 
repetidamente a lo largo de un programa. 

Empleando las sentencias GOSUB (ir a subrutina) y RETURN (retorno) 
sólo es preciso escribir una única vez la serie de instrucciones repetidas, 
utilizándose menos memoria y simplificando el programa. 

La expresión general de la sentencia GOSUB es: 


(Núm. de línea, m) GOSUB (núm. de línea, »). 


Cuando el programa ejecuta la línea número m se transfiere el control a 
la línea m, de forma análoga a la instrucción GOTO, pero con la 
particularidad de que retiene el número de línea m, de forma que una vez 
ejecutada la subrutina se devuelve el control a la línea siguiente a m, para 
lo cual es necesario introducir como línea final de la subrutina la sentencia 
RETURN, que no precisa argumento: 

(Núm. de línea) RETURN. 

Notas: 

1) La última instrucción de una subrutina debe ser siempre RETURN; 
además, para obtener mayor claridad en los programas, las subrutinas se 
sitúan habitualmente al final del programa. 

2) Si en un mismo programa hay varias subrutinas, éstas se suelen 
numerar 100, 200, etc. o 1000, 2000, etc. para facilitar el empleo de 
expresiones del tipo GOSUB 100*A o similares; además, es conveniente 
encabezarlas con REM para obtener una mayor claridad en el programa. 


Ejemplo 1: Dados dos números, vamos a comprobar mediante una 
subrutina si su suma, resta, producto y cociente coinciden con los datos 
introducidos por el usuario. 


10 INPUT "INTRODUCE LOS DOS NUMEROS "3A,B 


20 LET M=A+B 
30 INPUT ("CUANTO VALE "343" + "5B3" =") ,N 
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40 GO SUB 200 

50 LET M=A-B 

£60 INPUT ("CUANTO VALE "5A5" — "3B3" ="),N 
70 GO SUB 200 

80 LET M=AX*XB 

90 INPUT ("CUANTO VALE "3A3" * "3B3" ="),N 
100 GO SUB 200 

110 LET M=A/B 


120 INPUT ("CUANTO VALE "503" / "3B53" =")3,N 
130 GO SUB 200 
140 STOP 


200 IF M=N THEN PRINT "CORRECTO" 
210 IF M<>N THEN PRINT "INCORRECTO. ERA "Mm 


220 RETURN 


En este caso la subrutina está formada por las líneas 200-220, y su 
misión es decir si el resultado es correcto o no. Al alcanzar la línea 40 se 
transfiere el control a la 240, y la sentencia RETURN transfiere el control a 
la línea siguiente a la 48, es decir a la línea 50. El comportamiento es 
análogo en las líneas 74, 100 y 130. 

Ejemplo 2: El siguiente programa tiene dos subrutinas; la primera 
calcula la suma de n números dados y la segunda su producto. 


10 INPUT "VALOR DE N "3N 

20 INPUT "1 SUMA, 2 PRODUCTO ";5A 
3O IF A=1 THEN GO SUB 100 

40 IF A=2 THEN GO SUB 200 

50 PRINT "RESULTADO "35X 

60 STOP 

100 LET X=0 

110 FOR I=1 TO N 

120 INPUT "INTRODUCE UN NUMERO "3Y 
130 LET X=X+Y 

140 NEXT 1 

150 RETURN 
200 LET X=1 
210 FOR I=1 TON 
220 INPUT "INTRODUCE UN NUMERO "5Y 
230 LET X=Xx*Y 

240 NEXT I 

250 RETURN 


Si A = 1 se transfiere el control de la línea 34 a la 100 y, una vez 
ejecutada la subrutina, RETURN devuelve el control a la línea siguiente a la 
30, imprimiéndose por tanto el resultado. 

Si A = 2 el proceso es análogo. 
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Este programa concreto se podría haber realizado sin usar GOSUB, 
utilizando GOTO únicamente; sin embargo, GOSUB consigue una mayor 
estructuración del programa, haciéndolo más claro y comprensible. 


Ejemplo 3: Uno de los ejemplos más claros de utilización de subrutinas 
es el cálculo del número combinatorio: 


! 
CE) A = n)! 


que efectuado directamente obligaría a calcular 3 veces el factorial de un 
número, en cambio con una subrutina se consigue el mismo resultado. 


10 INPUT "ESCRIBE M Y N "3M,N 
20 LET P=M 

30 GO SUB 200 
40 LET A=F 

50 LET P=N 

60 GO SUB 200 
70 LET B=F 

80 LET P=M-N 

90 GOD SUB 200 
100 LET C=F 

110 PRINT A/B/C 
120 STOP 
200 LET F=1 
210 FOR I=1 TO P 
220 LET F=Fx*x1 
230 NEXT 1 
240 RETURN 


La subrutina que calcula el factorial de un número viene dada por las 
líneas 200-240. En las líneas 20-40 se calcula A = m!, en las líneas 50-74) se 
obtiene B =n!, y en las líneas 84-108 se calcula C = (m — n)! 


Nota: También se puede utilizar una subrutina dentro de otra, 
análogamente a los bucles encajados, pero tener en cuenta que al toparse 
con RETURN se devuelve el control a la línea siguiente al último GOSUB 
ejecutado. 


Ejemplo 4: Ejecuta el siguiente programa y analiza lo que aparece en 
pantalla: 


10 LET A=1: LET B=2 

20 GO SUB 50 

30 PRINT A,B 

40 GO SUB 80 

50 LET A=2x*A-B 

60 IF ABS A<10 THEN (GO TO 30 
70 STOP 
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80 LET A=A+0.5 
90 RETURN 


Seguir, en un papel, todos los pasos que ejecuta el ordenador y así se 
comprenderá perfectamente el funcionamiento de GOSUB y RETURN. 


10.2. Saltos múltiples.—El Spectrum no admite las dos sentencias que 
vamos a comentar, sin embargo las indicamos por estar bastante 
difundidas. 

Sentencia ON-GOTO: 

Analiza el valor de una variable o expresión y según cual sea éste 
transfiere el control a una línea u otra. Su expresión general es: 


(Núm. de línea) ON (variable) GOTO al, a2........, an. 


Si el valor de la variable o expresión es 1, o lo es su parte entera, se 
transfiere el control a la línea al, si su parte entera es 2 se transfiere a la 
línea a2, y así sucesivamente. Así pues, la sentencia ON-GOTO unifica las 
sentencias GOTO y IF-THEN simplificando su empleo. 


Ejemplo 6: Dado un número cualquiera se escribe literalmente su signo: 


10 INPUT "ESCRIBE EL NUMERO "5N 
20 ON SGN(N)+2 GOTO 30,40, 50 
30 PRINT "NEGATIVO": STOP 

40 PRINT "CERO": STOP 

50 PRINT "POSITIVO": STOP 


Sentencia ON-GOSUB: 
Es similar a la anterior con la diferencia de que ésta transfiere el control 
a una subrutina. Su expresión genérica es: 


(Número de línea) ON (variable o expresión) GOSUB al, a2,........, an. 


Si el valor de la variable, o de su parte entera, es 1 se transfiere el 
control a la subrutina que comienza en al, etc. 


PROGRAMAS PROPUESTOS 


P.147. Construir mediante una subrutina, un programa que calcule 
integrales definidas (ver P.43.). Utilizar como inicio del programa las líneas: 


10 PRINT "TECLEA A CONTINUACION" 

20 PRINT AT 5,63"500 LET Y=..AQUI TECLEA LA FUNCION..” 
30 PRINT AT 10,03"TRAS ESTO TECLEA RUN 50" 

40 STOP 
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P.108. Supongamos que el ordenador no tiene posibilidad de multi- 
plicar ni de calcular potencias. Hacer un programa que permita obtener ar 
mediante sumas repetidas, siendo n y a números enteros positivos. 
Emplear una subrutina para calcular los diversos productos parciales. 


P.199. Un problema clásico de utilización de subrutinas es el siguiente: 


En la multiplicación 


.o o. . . . 


ECCECE 
OCTOBER 


los interrogantes y las letras de OCTOBER deben ser sustituídos por 
números de forma que: i) Sean primos los números: OCTO, CTO, CTOB, 
TO, TOBE, TOBER, OBER, BER, BE, ER, R; ii) El número OCTOBER 
tenga un divisor primo menor que 10. 

P.11f. Construir un programa que escriba cualquier número entero 
positivo de 4 cifras (si tiene menos de 4 completar con ceros, 23 = (023). 
Así, introducido 1234 en pantalla aparece: MIL DOSCIENTOS TREINTA Y 
CUATRO. 


P.111. Existe un algoritmo bastante rápido para encontrar números 
primos. Si un número es primo y distinto de 1, 2 y 3, siempre es de la 
forma: 


6n +1 O 6n — 1. 


Construir un programa basado en este algoritmo, de forma que dado n, 
se impriman todos los primos menores o iguales que 6 n + 1. 
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CAPITULO 11 


READ, DATA, RESTORE 


11.1. READ-DATA.—Vamos a ver dos nuevas sentencias: READ (leer) 
y DATA (datos). Hay ocasiones en que es necesario almacenar un número, 
a veces elevado, de constantes numéricas o alfanuméricas. Tenemos 
entonces, varias formas de introducirlas en un programa: 

—Mediante el empleo de LET o INPUT, en que se introducen todos los 
uno en uno. 

—Mediante el empleo de READ y DATA, en que se introducen todos los 
datos agrupados. 


Ejemplo 1: En el lenguaje cotidiano podemos decir: a vale 2, hb vale —3, 
c vale 4,.......... ; pero también tenemos la posibilidad de expresar esto de otra 
manera, diciendo: a, b, C.,........ valen respectivamente 2, —3, 4... Algo 
semejante ocurre en el ordenador, así, en lugar del programa: 


10 LET A=2 

20 LET B=-3 

30 LET C=4 

40 LET A$="SODL" 

SO LET B$="SOMBRA" 
60 PRINT A,B,C,A56,B5$ 


podemos emplear: 


10 READ A,B,C,A$,B$ 
20 DATA 2,-3,4,”"SDL"”, "SOMBRA" 
30 PRINT A,B,C,A$,B+$ 


A la primera variable después de READ se le asigna el primer dato que 
viene tras DATA, a la 2.? el segundo dato, etc. 


Nota: Siempre que nos encontramos con una sentencia READ tiene que 
aparecer DATA por lo menos una vez. 

Como se ha visto en el ejemplo 1, READ lee el nombre de la variable y, 
por medio de DATA, se les asigna valores de una forma ordenada. 

Es indiferente el lugar en que se encuentre, en el programa, la sentencia 
DATA, ya que el ordenador al llegar a READ busca desde la primera línea 
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del programa hasta encontrar un DATA. Así, se puede conseguir el mismo 
efecto que en el ejemplo 1 con: 


10 DATA 2.-3,4,"SOL”, "SOMBRA" 
20 READ A,B,C,A$,B$ 
30 PRINT A,B,C,A$,B$ 


o también con: 


10 READ A,B,C,A$,B$ 
20 PRINT A,B,C,A$,BS$ 
30 DATA 2,-3,4,"SOL"”, "SOMBRA" 


Notas: 
1) Si un READ no viene acompañado de por lo menos un DATA, el 
ordenador muestra un mensaje de error: 
E Out of DATA (fuera de datos). 


Por el contrario, si hay una instrucción DATA sin READ, no aparece 
ningún mensaje de error y dicha instrucción es ignorada. 

2) DATA puede ir incluso detrás de una sentencia STOP, como se 
observa con el programa: 


10 READ A 
20 PRINT A 
30 STOP 

40 DATA 2 


3) Por claridad,es conveniente colocar todos los DATA juntos al principio 
o al final del listado. 

4) El número de datos debe ser siempre igual o superior al número de 
variables de READ. Por ejemplo: 


10 DATA 10,20 
20 READ A,B.,C 
30 PRINT A,B,C 


y veremos que aparece el mensaje de error: 
E Out of DATA, 20: 1 


ya que nos falta un dato en la lista de DATA. 
Sin embargo: 


10 DATA 10,20,30,40,50 


20 READ A,B,C 
30 PRINT A,B,C 


no da error alguno, aunque sobran datos. 


Propiedades: 


Veamos algunas de las más interesantes propiedades de estas sentencias: 
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i) Pueden funcionar dos sentencias READ, o más de dos, con una sola 
DATA: 


10 DATA 1,2,3,4,5,6,7 
20 READ A,B.C 

30 READ D,E 

40 PRINT A,B,C,D,E 


1i) También es posible emplear varios DATA con un solo READ, de tal 
forma que, cuando se acaba de leer un DATA, continúa en el 
siguiente: 


10 DATA 2,3 
20 DATA 1,5 

30 READ A,B,C,D 
40 PRINT A,B,C,D 


ii) READ también puede ir dentro de un bucle: 


10 DATA 1,-1,2,3 
20 FOR X=1 TO 4 
30 READ A 
40 PRINT A 
50 NEXT X 


iv) Estas sentencias también admiten variables dimensionadas. 
Introduce el siguiente programa y analiza los resultados mostrados 
en pantalla: 


10 DIM A(5) 
20 FOR N=1 TO 5 

30 READ A(N) 

40 PRINT "A("¿N53")="3A(N) 
50 NEXT N 

60 DATA 10,20,30,40,50 
70 STOP 


v) También se puede leer únicamente el dato que ocupa un 
determinado lugar en un DATA: 


10 
20 
30 
40 
30 
60 


INPUT "QUE DATO QUIERES? "5N 

DATA 2,4,6,8.10,12,14,16 

LET X=0 

LET X=X+1: READ Az IF N<>X THEN GO TO 40 
PRINT "EL DATO "3N3" ES "; 

STOP 


Ejemplo 2: Vamos a hacer un programa que, dado el número del día de 
la semana, nos imprima su nombre: 
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10 INPUT "DAME EL NUMERO DEL DIA "3N 
20 IF Ne>INT N OR N>7 OR N<1i THEN GO-TO 10 


30 DATA "LUNES","MARTES”, "MIERCOLES”, "JUEVES" 
40 DATA "VIERNES", "SABADO", "DOMINGO" 

530 LET X=0 

60 LET X=X+1: READ At: IF X<2N THEN GO TO 60 
70 PRINT As 

80 STOP 


11.2, RESTORE.—La misión de esta instrucción (RESTORE = 
Restaurar, devolver) es restaurar las condiciones que se tenían inicialmente 
en un DATA, volviéndose a leer otra vez desde el principio. 


Ejemplo 3: Introduzcamos el programa: 


10 DATA 1,2,3,4 
20 READ A.B 

ZO PRINT A,B 
40 READ C,D 

50 PRINT C,D 
60 STOP 


al ejecutarse asignará a a el valor 1, a bel valor 2, a c el valor 3 y a d el 
valor 4. Sin embargo, si le añadimos la línea: 
35 RESTORE 
el valor asignado a c y d habrá variado, ya que se ha vuelto a leer al 
comienzo de DATA. 
RESTORE también puede llevar tras sí el número de línea en que se 
encuentra la instrucción DATA a inicializar. 
En el ejemplo 3 sería: | 
35 RESTORE 10 
Ejemplo 4: El siguiente programa muestra un mensaje de error al 
ejecutarlo: 


10 DATA 10,15 
20 READ A,B 
30 PRINT Ax*xB 
40 READ X,Y 
SO PRINT X+Y 


la razón del mensaje de error es por haberse pretendido leer más datos de 
los que teníamos. Con cualquiera de las dos líneas siguientes: 


35 RESTORE 


353 RESTORE 10 


asignaremos a Xe Y los valores 104 y 15 respectivamente. 


100 


PROGRAMAS PROPUESTOS 


P.112. Calcular la suma, el producto y la media aritmética de una serie 
de 1f datos introducidos en un DATA. 


P.113. Hacer un programa análogo al del ejemplo 2, pero para los 
meses del año. 


P.114. Construye con READ y DATA un listín telefónico, de forma que 
dado el nombre de una persona nos facilite su teléfono. 


P.115. Hacer un programa que, usando READ y DATA, imprima en 
pantalla los resultados de una evaluación, indicando las asignaturas y el 
número de alumnos que alcanzan cada calificación: MD, IN, SU, BL NO, 
SB. 


P.116. Hacer un programa, empleando READ y DATA, que nos 
presente en pantalla una tabla con todos los satélites de Júpiter, su 
descubridor y el año en que se efectuó dicho descubrimiento. 
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CAPITULO 12 


LA MEMORIA EN EL ORDENADOR 


12.1. Sistemas de numeración.—Dos son los sistemas de numeración 
que ahora nos interesan: 


—El sistema decimal, o de base 1/0, que es el que empleamos 
normalmente, y hace uso de 1f dígitos: f, 1, 2, ......... 9. 

—El sistema binario, o de base 2, que es el que emplea nuestro 
ordenador, y en el que se hace uso de 2 dígitos f, 1. 


En ambos sistemas se verifica el “principio del valor relativo”; cada cifra 
representa, aparte de su propio valor, llamado absoluto, distintos valores 
según su posición. 

En general, dado un número: 

+ ZYXK 


en cualquier base, se llaman unidades de primer, segundo, tercer,........ orden 
AA is respectivamente. 

En el sistema de numeración decimal, cada diez unidades de primer 
orden se forma una de segundo; con 1f de segundo orden se forma una 
unidad de tercer orden, etc.; de tal manera que, por ejemplo el número 
2343, representa: 


3.18" + 4.18! + 3.18? + 2.10 


y, por tanto, el 3 de las unidades de primer orden tiene un valor 100 veces 
menor que el 3 de las unidades de tercer orden. Lo mismo sucede en el 
sistema binario, cada dos unidades de un orden se forma una unidad del 
orden inmediatamente superior. Los números se expresan en binario, con el 
subíndice 2; así, para indicar que 111 es un número binario, se escribe: 111 e 


Ejemplo 1: Veamos como pasar un número, por ejemplo 12, del sistema 
decimal al binario. 

Como cada 2 unidades formamos una de orden superior, lo primero 
será dividir 12 entre 2, y obtenemos 6 unidades de orden 2 y cero unidades 
de orden 1. Las 6 unidades de orden 2, forman 3 unidades de orden 3 y 
cero unidades de orden 2; y, las 3 de orden 3, se transforman én 1 unidad 
de orden 4 y otra unidad de orden 3. 
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159) 


2 
6 
'B 


¡SS 


[2 Por tanto, 12 = 1100, 


El paso inverso, aún es más sencillo. Si continuamos con nuestro 
ejemplo, para pasar 1100, al sistema decimal, sólo tenemos que calcular: 


1100, = 0.20 + 0.21 + 1.22 + 1.23 =12 


Con el Spectrum, también podemos conseguir esto último de una forma 
automática, con la instrucción BIN. Así, si introducimos 


PRINT BIN 1106 


aparece en pantalla 12. 

La instrucción BIN avisa al ordenador que el número escrito a 
continuación está en binario. Sin embargo, el ordenador sólo admite como 
máximo 2 octetos, o lo que es igual 16 dígitos binarios. Prueba: 


PRINT BIN 11111111 y PRINT BIN 1111111111111111 


y obtendrás como resultados: 255 y 65535, respectivamente; por tanto, con 
un octeto podremos representar cualquier número comprendido entre / y 
255, y con 2 octetos los comprendidos entre f y 65535. 


Nota: Un dígito binario es la unidad elemental de información, y se llama 
bit. Al octeto, o conjunto de 8 bits, se le llama byte. 


12.2. Memoria.—Es evidente que nuestro ordenador puede “recordar” 
información, y diremos que posee memoria. Esta memoria se puede 
comparar a un largo casillero, donde cada una de las casillas tiene asignado 
un número que llamaremos dirección. 

En cada dirección de memoria se puede almacenar un byte que 
contiene, codificada en binario, la información o dato a guardar. 


Nota: La capacidad de una memoria se mide en múltiplos de 1424 bytes. 
Diremos que una memoria tiene 1K cuando puede almacenar 1624 bytes; y, 
en general, tendrá nK cuando pueda almacenar 1024xn octetos. 


Memoria ROM: (Read Only Memory = memoria sólo de lectura). Es la 
memoria en donde guarda el ordenador toda aquella información que es 
vital para su funcionamiento: el programa traductor, el sistema operativo, el 
juego de caracteres, etc. Guarda todo aquello que no es alterable ni 
borrable, ni siquiera al desconectarlo, y viene grabada de fábrica. 

En el Spectrum esta memoria ocupa las direcciones comprendidas entre 
Y y 16383, ambas inclusive, o sea 16 x 1/24 = 16 K de ROM. 


Memoria RAM: (Random Access Memory = memoria de acceso 
aleatorio). Esta memoria, a diferencia de la anterior, se puede grabar y 
borrar a voluntad. Aquí es donde se encuentra el programa y datos que 
desaparecerán al desconectar el ordenador. 
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En el Spectrum empieza en la dirección 16384. En el modelo de 16 K 
llega hasta la posición 32767, ya que: 


32767 — 16383 = 16384 y 16384/1024 = 16 K 
En el modelo de 48 K, su límite es 65535 pues: 
65535 — 16383 = 49152 y 49152/1P24 = 48 K 


Y 


Nota: A los dos tipos anteriores de memoria se les llama residentes, por 
estar dentro del ordenador. Pero ya sabemos que, si tenemos un programa 
en la RAM y queremos conservarlo, tenemos que acudir a otro tipo de 
memoria: cinta magnética, microdrive, etc. A estas memorias se les 
denomina memoria de masa. 


12.3. POKE - PEEK.—Para almacenar un dato en una determinada 
posición de memoria utilizaremos la instrucción POKE, cuya expresión 
genérica es: 


POKE dirección, dato 


Por ejemplo, POKE 16384, 104 almacena en la dirección de memoria 
16384 el número 1/4. 

Hay que recordar que la memoria ROM sólo es de lectura, por lo que no 
se puede almacenar nada nuevo en ella; por tanto, en las direcciones 
comprendidas entre 4 y 16383 no tiene ningún efecto POKE. 

La instrucción PEEK lee el contenido de la dirección de memoria que 
especifiquemos. Su expresión es: 


-PEEK dirección 


Así, la instrucción PRINT PEEK 16384 nos dará el contenido de la 
dirección 16384. 

Como en cada dirección de memoria se puede almacenar un octeto, la 
instrucción PEEK nos dará como resultado un número comprendido entre 
WM y 255, ambos inclusive. Además, con esta instrucción, se puede leer 
incluso la memoria ROM. 


Notas: 


1) El dato que almacenamos en una dirección de memoria, RAM por 
supuesto, borra el anterior dato grabado. 

2) Comprobemos con el siguiente ejemplo que POKE no tiene ningún 
efecto sobre la ROM: 


PRINT PEEK 10400: POKE 10000, 10): PRINT PEEK 10000 


en ambos casos, el resultado es 255. 

3) Sabemos que en una dirección de memoria sólo se puede almacenar 
un número comprendido entre Ú y 255. Para conservar números mayores 
emplearemos varias direcciones consecutivas de memoria. 

Por ejemplo, podemos emplear dos octetos para representar el número 
53152 = 110111 116109090, 
en la dirección a tendremos el octeto: 10100000 
y, en la dirección a + 1 tendremos el octeto: 11/P$1111. 

Por tanto, las unidades de primer orden del octeto que ocupa la 
dirección a + 1 no valdrá 2” sino 28 = 256. Lo mismo sucede con las 
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unidades de 22, 32 42... orden, que tomarán los valores 2*, 2!" 2!!.... en 
lugar de:21,.22. 238... 

Por consiguiente, para leer correctamente la información deberemos 
emplear: 


PRINT PEEK a + 256 + PEEK (a +1) 


12.4. Zonas de la memoria RAM.—Fichero de presentación visual: En 
las primeras posiciones de la RAM, desde la 16384 hasta la 22527 ambas 
inclusive, se guarda el archivo de la pantalla o fichero de presentación 
visual. 

La pantalla está dividida en 24 filas, incluídas las 2 que emplea el 
ordenador para sus mensajes, y 32 columnas; en total, 24 x 32 = 768 
caracteres. Cada carácter viene definido por 8 bytes (capítulo 14, gráficos 
definidos por el usuario), lo que hace un total de 768 x 8 = 6144 bytes. 

Por tanto, 16383 (de la ROM) + 6144 (presentación visual) = 22527 que 
es la dirección última de la presentación visual. 

Prueba el siguiente programa para observar que dirección de memoria 
corresponde a cada posición en pantalla: 


10 FOR X=16384 TO 22527 
20 POKE X. 255 


30 NEXT X 
40 STOP 


Archivo de atributos: Los atributos (brillo, flash, colores de papel y tinta) 
de cada espacio ocupado por un carácter se almacenan entre las 
direcciones 22528 y 23295. 

Cada posición de carácter necesita para fijar sus atributos 1 byte, por lo 
que serán necesarios 24 x 32 = 768 bytes, que nos da el número de 
posiciones reservadas: 23295 — 22527 = 768. 

Con el siguiente programa: 


10 FOR X=i TO 704 

ZO FRINT "A"s 

20 FOKE 22527+X, INT  (RND*256) 
40 NEXT X 

50 STOF 


se elije de forma aleatoria los atributos de todos los espacios, excepto las 2 
líneas inferiores. Como el número que fija los atributos de una posición está 
comprendido entre 0 y 255, en la línea 30 para tomarlos aleatorios hemos 
considerado INT (RND * 256). 

Para comprender mejor la relación existente entre ese número y los 
atributos ver el capítulo 13 (ATTR). 


Otras zonas de la memoria: 

—Para transmitir información a la impresora, se reservan las direc- 
ciones comprendidas entre 23296 y 23551; esta zona se llama Printer Buffer 
y está ocupada tanto si la impresora se conecta como en caso contrario. 

—Las direcciones comprendidas entre 23552 y 23733 se reservan para 
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las necesidades de funcionamiento del propio ordenador, para almacenar 
las llamadas variables del sistema. 

—Otra zona interesante es aquella en que se almacena nuestro 
programa en BASIC. Para conocer cuál es la dirección de comienzo de esta 
zona hay que acudir a una variable del sistema, llamada PROG, que ocupa 
las direcciones 23635 y 23636. Por tanto, con la instrucción: 


PRINT PEEK 23635 + 256 * PEEK 23636 


obtendremos la dirección de comienzo de esta zona. 

—A continuación de la zona anterior se halla la zona donde se 
almacenan todas las variables que hayamos definido. La dirección de 
comienzo se encuentra en la variable del sistema, llamada VARS, que ocupa 
las direcciones 23627 y 23628. Por tanto, con la instrucción: 


PRINT PEEK 23627 + 256 * PEEK 23628 


obtendremos la dirección de comienzo de esta zona. 

Es decir, restando las dos expresiones anteriores obtenemos cuanta 
memoria ocupa un programa, sin incluir las variables. 

—El principio de la zona siguiente a la de las variables, viene dada por la 
memoria del sistema, E-LINE, que ocupa las direcciones 23641 y 23642. 

Por consiguiente, con la siguiente instrucción calcularemos la memoria 
ocupada por el programa y las variables: 


PRINT PEEK 23641 + 256 * PEEK 23642 — (PEEK 23635 + 256 * PEEK 
23636) — 1 


restamos 1 porque hay una separación de un octeto entre ambas zonas. 

—Otra zona muy interesante es la ocupada por la memoria de reserva; 
esto es, la memoria disponible. En el Spectrum de 48 K es 41472 bytes, y en 
el Spectrum de 16 K es de 8839. La variable del sistema que indica la 
dirección de comienzo de esta memoria se llama STKEND y se encuentra 
en las direcciones 23653 y 23654. 

—La zona final de la memoria es la reservada a los gráficos definidos 
por el usuario. El comienzo de esta zona está almacenado en la variable del 
sistema llamada UDG, que ocupa las direcciones 23675 y 23676. 

—La dirección de la última casilla de la memoria está almacenada en 
una variable del sistema llamada P-RAMT, que se encuentra en las 
direcciones 23732 y 23733. Por tanto, la instrucción: 


PRINT" PEEK 23732 + 256 * PEEK 23733 


da la dirección de esa última casilla. 
Como ya hemos visto anteriormente, si el Spectrum es de 48 K el 
resultado será 65535, y si es de 16 K será 32767. 


12.5. Algunos POKEs interesantes: 


i) En la dirección 23561 está almacenado el tiempo durante el cual 
hay que presionar una tecla para que se repita. Su valor normal es 
35 (cincuentavos de segundo). Si introducimos POKE 23561, n 


modificamos el tiempo en cuestión. Pruébalo cuando n =1 0 n= 
239; 
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11) 


iii) 


v) 


vi) 


vii) 


vii) 


1x) 


x) 


En la siguiente dirección se controla el retardo entre dos 
repeticiones de una tecla que hemos pulsado. Su valor normal es 
5. Prueba POKE 23562, n cuando n vale 1 o 255. o 
Modificando el contenido de las direcciones 23606 y 23607 se 
cambian los caracteres del Spectrum. El valor normal de la 
dirección 23606 es ( y el de la dirección 23607 es 6f. Probar a 
introducir en la dirección 23606 los números: 14P, 2PQ, 8, etc.; y en 
la dirección 2367 los números: 1, 59, 61, 86, 87, 88, etc. 

El tiempo de control del zumbador de alarma está en la dirección 
23608, y su valor normal es 64. El zumbador suena cuando la 
memoria está llena. 

En la dirección 2369 se encuentra la duración del chasquido que 
se produce el presionar las teclas. Su valor normal es f/. 
Experimenta con POKE 23609, 10/. 

En la dirección 23617 se halla el carácter del cursor. Su valor 
normal es Y. Comprueba su efecto con el siguiente programa: 


10 FOR a=0 TO 255 
20 POKE 23617,a 
30 INFUT as 

40 FRINT as 

50 NEXT a 


El color de BORDER y de la tinta de las 2 últimas líneas se 
encuentra almacenado en la dirección 23654. Su valor normal es 7. 
Comprueba su efecto con el programa: 


10 FOR A=0 TO 2355 

20 POKE 23624,A 

0 INPUT "OBSERVA ESTE COLOR "5 A+ 
230 NEXT A 


Para escribir siempre en mayúsculas podemos emplear POKE 
23658, 8; el valor normal de esta dirección es cero. 

Las direcciones 23672, 23673 y 23674 almacenan el tiempo que ha 
transcurrido desde que se conectó el ordenador. Ver capítulo 13, 
reloj interno del ordenador. 

Se puede conseguir que el Spectrum efectúe de forma automática 
el scroll; para lograrlo hay que introducir POKE 23692, 255 en el 
programa, ya que no tiene efecto como comando directo. 
Comprobarlo con los programas siguientes, y observar las 
diferencias entre ellos: 


10 POKE 23692, 25953 10 FOR N=1 TO 500 
20 FOR N=1 TO 500 ZO PORKE :23692,255 
30 PRINT YN 30 FRINT MN 
40 NEXT N 40 NEXT N 


xi) Con la instrucción POKE 23659, Q bloqueamos el ordenador 
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a que aparezca un mensaje en las líneas 23 o 24, excepto 
scroll. 


Por tanto, con esta instrucción podemos proteger el listado de 
algunos programas. Por ejemplo, no es posible obtener el listado 
del siguiente programa una vez que se está ejecutando: 


10 LET n=1 

20 PRINT n 

30 PORKE 23692, 235 

40 POKE 23659,0 

530 LET n=n+1: GO TO 20 
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CAPITULO 13 


TIEMPO, COLOR Y SONIDO 


13.1. TIEMPO: INKEY$, PAUSE.—Hay muchos programas, sobre 
todo en juegos, en los que nos interesa que al pulsar una tecla determinada 
se ejecute una instrucción, pero que en caso contrario el programa 
continúe sin interrupción. 

Hasta ahora, la única instrucción que teníamos para introducir datos 
desde el teclado durante un programa era INPUT, pero esta instrucción 
detiene la ejecución hasta que se teclea el dato, por lo que no es útil para 
nuestros propósitos. 

Supongamos que intentamos hacer un programa de “tiro al plato”. En 
pantalla aparece al azar “un plato” y cuando pulsamos una. tecla, por 
ejemplo F, disparamos sobre él, en caso contrario sigue moviéndose por la 
pantalla. Si utilizamos INPUT, el plato no se mueve hasta que pulsamos una 
tecla, con lo que el juego es bastante tonto. 

Hay una instrucción en BASIC que soluciona esta dificultad: INKEY$. En 
general, si en un programa introducimos la línea: 


109 IF INKEYS$ = “una tecla” THEN sentencia X 


al llegar a la línea 190 comprueba si se ha pulsado la tecla deseada; de ser 
así se ejecuta la sentencia X, en caso contrario, se continúa con la línea 
siguiente a la 100. 


Ejemplo 1: Ejecuta el siguiente programa: 
10>1F INKEY$="A"THEN PRINT "HAS PULSADO LA TECLA A 


20 GO TO 10 


Como habrás observado, hay que tomar ciertas precauciones ya que la 
velocidad de lectura del teclado es tan alta que, cuando presionamos la 
tecla, el ordenador ya ha pasado a la línea siguiente por lo que repite la 
impresión, si es que hemos pulsado la tecla A. 

Notas: 


1) En algunos ordenadores esta instrucción se designa por KEYf$, y en 
otros por INKEY$ (N), donde N son las centésimas de segundo que da de 
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tiempo el ordenador para pulsar la tecla. En algunos otros, sobre todo en la 
gama Commodore, se utiliza una instrucción similar: GET AS. 

2) La instrucción INKEY$ detecta únicamente una tecla, y no precisa 
"pulsar ENTER. 


Ejemplo 2: Otra utilidad de INKEY$ es dar tiempo para leer unas 
instrucciones que se han sacado en pantalla: 


10>PRINT "INSTRUCCIONES"? ? > 

20 PRINT "PARA CONTINUAR PULSAR UNA TECLA" 

30 IF INKEY$="" THEN GO TO 30 

40 CLS : PRINT "AHORA SEGUIRIA CON EL PROGRAMA" 
50 STOP 


la línea 30 “espera” hasta que se presione cualquier tecla. 

Al ejecutarlo con RUN debemos ser rápidos y no mantener mucho 
tiempo pulsada la tecla ENTER ya que, en caso contrario, ésta es detectada 
por la línea 30 y, por tanto, se salta a la 40. Para evitar estos inconvenientes 
se puede emplear la instrucción PAUSE, que tiene la expresión: PAUSE n 
donde n es un número comprendido entre f y 65535. 

Cuando se alcanza esta instrucción durante el programa, éste se detiene 
durante n imágenes de televisión, es decir, aproximadamente durante n/50 
segundos; por lo que PAUSE 54 equivale a 1 segundo, aproximadamente. 

Hay otra modalidad de PAUSE que es muy útil e interesante: PAUSE Q 
que, en contra de lo que se podía suponer, hace que se detenga el programa 
hasta que presionemos una tecla cualquiera. 


Ejemplo 3: Vamos a convertir el teclado en una máquina de escribir: 


10>PAUSE O 
20 PRINT INKEYS$s 
30 60 TO 10 


Observa que: 


—Sin la línea 14 el programa no funciona correctamente. 
—SPACE deja un espacio en blanco. 

—ENTER hace que se cambie de línea. 

—Se puede retroceder con CAPS SHIFT y 5. 

—Con CAPS SHIFT y CAPS LOCK salta media línea. 


Ejemplo 4: El siguiente programa es una variación del anterior: 


10>PAUSE O 
20 PRINT CHR$ 83 INKEYS$;3".">5 
3Q 60 TO 10 


y hace aparecer un punto en el lugar donde se va a imprimir el próximo 
carácter. La novedad estriba en que CHR$8 hace que el cursor retroceda 
un lugar para imprimir el punto. 
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Ejemplo 5: Veamos otro ejemplo ilustrativo del empleo de INKEY$: 


1O>LET n=0 

20 PRINT AT 20,16+n5 "glas * 

30 PAUSE O 

40 PRINT AT 20,16+n3" " 

50 IF INKEY$="5" THEN LET n=n-1 
650 IF INKEY$="8" THEN LET n=n+1 
70 1F n<-16 THEN LET n=-16 

80 IF n>11 THEN LET n=11 

90 60 TO 20 


—La figura se consigue con GRAPHIC y las teclas 3 y 8. 

—Las líneas 54M y 6f son las que mueven el objeto. 

—En la línea 49, entre comillas sólo tenemos espacios en blanco, que 
borran la imagen anterior al escribir encima. 

—Las líneas 7() y 8% impiden que el móvil salga de pantalla. 


Ejemplo 6: Podemos utilizar INKEY$ acompañado de CHR$, y de esta 
forma puede distinguir entre, por ejemplo, B, b o * que están en una misma 
tecla, ya que el código de b es 98, el de B es 66 y el de + es 42. 


JOSLET at=INKEYS 

20 PAUSE Y 

30 IF a$=CHR$ 42 THEN FPRINT "HAS PULSADO x" 
40 1F A$=CHR$ 66 THEN PRINT "HAS PULSADO E" 
SO IF A$=CHR$ 98 THEN PRINT "HAS PULSADO b” 
60 60 TO 10 


Ejemplo 7: Veamos una curiosidad sobre PAUSE 0. Si ejecutamos el 
programa: 


10O>FOR N=1TO 250:PRINT N3:NEXT N 
20 PAUSE Oz CLS : GO TO 10 


la línea 1f llena casi toda la pantalla de números, pero si mientras la está 
llenando pulsamos una tecla, PAUSE Q también la detecta. 


Reloj interno del ordenador: Al igual que en otros ordenadores, el 
Spectrum tiene un reloj interno, aunque es de difícil empleo. La 
información sobre el tiempo transcurrido desde que el ordenador se puso 
en marcha, está en las direcciones de memoria: 23672, 23673 y 23674. 

Con el siguiente programa conseguiremos un reloj digital que nos indica 
las horas, minutos, segundos y décimas de segundo transcurridos desde el 
momento en que el programa entra en funcionamiento. 


S>POKE 23674,0:POKE 23673,0:POKE 23672,0 


10 LET a= (6SS36*PEEK 23674+256x*PEEK 23673+PEEK 236 
723/50 


15 LET b=INT (a/60) 
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16 LET c=INT (b/60) 

20 PRINT AT 10,125c0c-INT” (0/24)X243":2"5b-INT (b/60) 
*605":2"5 INT” ((a-bx60)*10)/1053" " 

30 GO TO 10 


Notas: 


1) En otros ordenadores el cómputo del tiempo se realiza con las 
instrucciones: TIME, TIMES, Tl o TI$, de una manera mucho más sencilla 
que en el Spectrum. 

2) El programa se puede interrumpir en cualquier momento, y el reloj 
continúa su marcha como se puede comprobar con CONTINUE. 

3) El reloj no funciona correctamente si utilizamos la impresora, 
cassette o sonido (BEEP); de todas formas tampoco es muy exacto. 


13.2. SONIDO.—El Spectrum, como otros muchos micrordenadores; 
tiene la posibilidad de emitir sonidos, a través del pequeño altavoz que lleva 
incorporado. 

Aunque su sonido no es muy brillante, su extrema sencillez hace que se 
utilice a menudo. Otros ordenadores de una potencia sonora muy superior, 
sin embargo exigen largas y complicadas instrucciones. 

La sentencia necesaria para conseguir sonidos del Spectrum es: BEEP x, y 
donde x es la duración de la nota musical en segundos; debe ser un número 
positivo, aunque no necesariamente entero; y mide el número de semitonos 
por encima o por debajo del “DO central”, según sea positivo o negativo. 

Es decir, si y = f) obtenemos el DO central, si y = 1 DO sostenido, si y = 2 
RE, etc. Si y = 12 obtenemos el DO de la escala superior, y si y =— 12 el de 
la inferior. 

Por tanto, una octava se consigue dando a y valores desde Q hasta 12. 


Ejemplo 8: Este programa emite los sonidos correspondientes a 3 
octavas. 


10>FOR N=-12T0 24 
20 BEEP 0.5,N 
3O NEXT N 


Ejemplo 9: También podemos emplear READ-DATA, y así, el siguiente 
programa emite las notas musicales e imprime su nombre: 


5 DATA "DO". "DOHA", "RE", "REA" *mi*, “FA”, FA”, "SOL 
SOC”, "LA", "LAU", "51", DO" 

10 FOR N=0 TO 12 

20 READ As 

30 PRINT As 

40 BEEP 1,N 

SO NEXT N 

60 STOP 
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Ejemplo 10: Vamos a indicar una serie de efectos ESPECIALES, que son 
bastante útiles para adornar juegos, etc.: 


a) 


10>FOR X=1TO 3 

20 FOR Y=-12 TO O 
30 BEEP 0.059, X 

40 NEXT Y 

50 NEXT X 

60 STOP 


b) 


10>FOR N=-3TO 8 
20 BEEP 0.02,N 
30 NEXT N 

40 GO TO 10 


c) 


10>FOR Y=0TO 12STEP 0.1 
20 BEEP 0.02, Y 

30 NEXT Y 

40 STOP 


En estos programas se pueden varias los límites de la variable de control 
de los bucles, para así obtener otros varios efectos. 


13.3. COLOR.—Una característica importante del Spectrum es poder 
representar las imágenes en color. Emplea 8 colores y a cada uno le asocia 
un número del Y al 7, de tal manera que en las teclas en que se 
encuentran estos números, aparece el color correspondiente. 

La pantalla de TV está dividida en 2 zonas: 


—un rectángulo central, llamado PAPER (papel). 

—el resto de pantalla, que rodea a PAPER, llamado BORDER (borde, 
margen). 

Podemos, de una manera muy sencilla y eficaz, elegir el color de PAPER 


y el de BORDER, sin más que indicar el número correspondiente al color 
elegido. Por ejemplo, con la línea: 


10O>BORDER 7:PAPER 0:CLS 


hemos conseguido que el borde aparezca en blanco y el papel de negro. 
CLS es necesario para que el ordenador coloree PAPER; también sé puede 


emplear PAPER n como comando directo, pero en este caso exige pulsar 
dos veces ENTER. 
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Ejemplo 11: Probar este programa que muestra todas las combi- 
naciones posibles de PAPER y BORDER: 


10 FOR x=0 TO 7 

20 FOR y=0 TO 7 

3O BORDER »: PAPER yz CLS 
34 LIST 

35 PAUSE 50 

40 NEXT y 

50 PAUSE 50 

70 NEXT x» 

80 60 TO 10 


Ejemplo 12: El siguiente programa muestra de forma aleatoria los 
colores de PAPER y BORDER: 


10 LET X=INT (RNDx*8) 

20 LET Y=INT (RND*8) 

30 PAPER X: BORDER Y: CLS 
40 PAUSE 25 

50 GO TO 10 


En las ocasiones en que la pantalla muestra un color uniforme en toda 
ella, PAPER y BORDER coinciden. 

También se puede elegir el color en que escribimos con el comando INK 
(tinta); así, INK 7 indica que escribimos en blanco, por lo que habrá de 
tenerse cuidado con PAPER, ya que si tienen ambos el mismo color no se 
vería lo escrito. Sin embargo, la tinta que emplea el Spectrum para dar sus 
mensajes siempre contrasta con BORDER. 


Nota: También se puede emplear con INK y PAPER el número 9. Si 
ponemos INK 9 la tinta siempre será visible, sea cual sea el color de PAPER; 
y, análogamente con PAPER 9. 

Ejemplo 13: Como mínimo PAPER o INK afectan al espacio de pantalla 


ocupado por un carácter; en éste, sólo pueden tomar un único valor cada 
uno de ellos. 


10 FOR a=1 TO 250 

20 PAPER O: INK 7: PRINT "a";5 
30 PAPER 7:. INK O: PRINT "a"; 
40 NEXT a : 


13.4. BRIGHT, FLASH, INVERSE y OVER.—Tenemos opción a dos 
brillos en cada carácter con la instrucción BRIGHT (brillo). Así: 


BRIGHT Q, imprime en pantalla un carácter con brillo normal 
BRIGHT 1, el brillo es ahora mayor. 
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También podemos conseguir el efecto de parpadeo con FLASH: 


FLASH Q/, no tiene efecto de parpadeo 
FLASH 1, tiene efecto de parpadeo. 


Ejemplo 14: Con el siguiente programa se ilustra lo dicho sobre FLASH 


10 FOR A=0 TO 21. 
20 PRINT FLASH 05 "SPECTRUM", 


30 PRINT FLASH 15 "SPECTRUM" 
40 NEXT A 


Otra instrucción a considerar es INVERSE: 


INVERSE 1, cambia la tinta al color del papel, y el color de éste al de la 
tinta. 
INVERSE Q, desactiva lo anterior. 


La otra instrucción que forma parte de este grupo, en el que todas 
tienen como argumento Q o 1, es OVER (sobre, encima de): 


OVER 1, permite la superposición de dos caracteres. Esto es, podemos 
escribir encima de un carácter sin borrarlo, creando de esta forma 
nuevos caracteres 

OVER Y, desactiva lo anterior. 


Ejemplo 15: Comprueba la diferencia entre las instrucciones: 


10 PRINT OVER 13"0"5CHR$ 8;3"-" 
20 PRINT OVER 03"0"3CHR$ 3;"-—" 


Recuerda que CHR$ 8 hace que el cursor retroceda un lugar. 
Notas: 


1) Las cuatro instrucciones de este apartado mantienen su efecto 
únicamente en la línea del programa en que se introducen. Al cambiar de 
línea o encontrar dos puntos, desaparece su efecto. Por tanto, en la línea 2f 
del ejemplo anterior sobra OVER Y . 

2) Los signos gráficos disponibles desde el teclado también se pueden 
colorear: 


10 FOR A=1 TO 28 

15 FOR X=1 TO 6 

20 PRINT  INK X5 "e"; 
25 NEXT X 

30 NEXT A 

40 STOP 


13.5. ATTR - SCREEN$.—La función ATTR (x, y) es una función que 
da información sobre los atributos (color del papel y tinta, brillo y 
parpadeo) del carácter situado en el punto de coordenadas (x, y) de la 
pantalla, siendo éstas las mismas que en PRINT AT; x es la fila, de f a 21, y 
es la columna, de f a 31. 


117 


Así, PRINT— ATTR (x, y) nos da la suma de los cuatro números 
siguientes: 
- —128 si el carácter tiene parpadeo, o Q en caso contrario. 

—464 si tiene brillo especial, o Y en caso contrario. 

—8 * n donde n es el código de PAPER, será pS Ñ 8 Oia, 56. 

—m donde m es el código de INK, será pues 0, 1, 2,........ Te 

Sí, por ejemplo, en el punto (12, 15) no hay adiós, hay brillo, el papel 
es azul y la tinta blanca, entonces: 


PRINT ATTR (12, 15) 


Iniprime 79, que es la suma de Q, 64, 8 y 7. 
Conocido ATTR (x y) podemos calcular los cuatro atributos del punto en 
cuestión. Así, si ATTR (x, y) = 215 podemos deducir: 


—al ser mayor que 128, tiene parpadeo. 

—cómo 215 — 128 = 87 es mayor que 64 tiene brillo especial. 

—al dividir 23 (= 87 — 64) entre 8, obtenemos de cociente 2 y de resto 7, 
por tanto el color de PAPER es rojo y el de INK es blanco. 


La función SCREENS (x, y) es, en cierto modo, similar a la anterior. Las 
coordenadas x, y son las mismas; pero, al ejecutar: 


PRINT SCREENS (x, y) 


lo que obtenemos ahora, es el carácter que en ese momento ocupa el lugar 
(x, y) en la pantalla. 
Compruébalo con: 


10 PRINT AT 10,1553”A” 
20 PRINT AT 21,155SCREEN$ (10,15) 


Ejemplo 16: Con este programa se consigue imprimir en pantalla todos 
los caracteres del Spectrum; inmediatamente son “leídos” por SCREEN$ y 
aparecen en la última fila, junto con su código ASCII. 

Observa lo que ocurre cuando N es mayor que 127: 


10 FOR N=32 TO 255 

20 PRINT AT 12,O53CHR$ N5" : 

30 PRINT AT 21,03SCREENS (12,0)5"  "3N3"  " 
40 PAUSE 50 

SO NEXT N 

650 STOP 
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PROGRAMAS PROPUESTOS 


P.117. Construye, con INKEYS$ y un bucle, un programa que nos de un 
número aleatorio comprendido entre dos números dados, sin emplear RND. 


P.118. Haz, con PAUSE, un programa para que aparezca en el centro 
de la pantalla un reloj digital. 


P.119. Modifica el ejemplo 5 para que el móvil se mueva por toda la 
pantalla. 


P.120. Consigue un traductor de morse sólo para' vocales. Cuando 
presionemos la tecla tiene que aparecer en pantalla los puntos y rayas 
correspondientes, y además el sonido; la duración de una raya suele ser 3 
veces superior a un punto: 


a=.— e=. 1=.. 0===— u=..— 
P.121. Construye un programa para poner a prueba tu retentiva visual, 
El ordenador tiene que sacar un número aleatorio de tal manera que: 


i) tenga como máximo 4 cifras. 
li) su posición en pantalla sea aleatoria. 
iii) permanezca en pantalla una fracción corta de tiempo, dependiendo 
del grado de dificultad. 


y el usuario tiene que acertar dicho número. 


P.122. Construir un programa en el que aparezca una “A” inmóvil, de 
forma que al pulsar Y dispare proyectiles hacia la parte alta de la pantalla. 
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CAPITULO 14 


GRAFICOS 


Las posibilidades gráficas del Spectrum son dignas de tener en cuenta: 
podemos usar los caracteres gráficos que aparecen en el teclado, definir 
nuestros propios caracteres gráficos y además dibujar rectas, circun- 
ferencias y arcos de circunferencia con suma facilidad. 


14.1. Caracteres gráficos del teclado.—En la parte superior del teclado, 
y en las mismas teclas en que se encuentran los dígitos del 1 al 8, aparecen 
una serie de caracteres gráficos. 

Son en total 16 y poseen códigos que van desde el 128 al 143, ambos 
inclusive. Se obtienen estos caracteres gráficos presionando CAPS SHIFT y 
GRAPHICS simultáneamente, con lo que el cursor pasa a modo G; y, luego 
presionando la techa correspondiente. Si volvemos a presionar CAPS SHIFT 
se obtienen los caracteres gráficos inversos de los anteriores. 

El tratamiento de estos caracteres es análogo al de los caracteres 
alfanuméricos. Por ejemplo: 


10>PRINT AT 12,15; "A 


Incluso, como se ha mencionado en el capítulo anterior, se pueden 
colorear. Por ejemplo: 


10>PRINT INkK 1," 
Otra forma de manejarlos es definiendo una variable alfanumérica. Por 


ejemplo: 
105LET ar PAN 
20 PRINT A$ 


Ejemplo 1: Con el siguiente programa, aparece en pantalla un objeto 
volador de color variable y con efectos sonoros. 


10>LET as="8 s E 


20 LET x=INT (RND*21): LET y=INT (RND*27):2 LET z=1 


NT (RNDx*8) 
40 PRINT  INK z3AT x.y3a% 
50 BEEP 0.02,2 
60 PRINT AT x,y3” ' 
70 60 TO 20 


121 


14.2. Gráficos definidos por el usuario.—Además de los caracteres 
vistos hasta ahora, podemos definir nuestros propios caracteres, hasta un 
total de 21. Su código ASCII estará comprendido entre 144 y 164, ambos 
inclusive. 

El espacio ocupado por un carácter está dividido en 8 x'8 = 64 pequeños 
cuadrados, y cada uno de éstos podemos colorearlo con el color de la tinta 
o el color del papel. 


Ejemplo 2: Vamos a definir un carácter que no aparece en el teclado: %. 
En primer lugar, en un cuadrado 8 x 8 se hace el diseño de lo que será el 


carácter (ver figura 1). 


| [IT TIT] (610009009 
Ll EZ EZ] | 616 /1/1/1/1 6/0: 
O TO DO E 99000 p 0 LA 
ll EA 616 1/1/1,1,0/0 
IEA] EAT] 09109100 
4 1 Ed || 90100 1/00 
LLE | EZ || 906/1010 111010 
O A A 090900900 
Figura 1 Figura 2 


Si queremos colorear un cuadrado pequeño con el color de la tinta le 
asignaremos un 1; si es con el color del papel, le asignaremos un Q. Así, el 
diseño anterior quedará como se indica en la figura 2. 


Todo ello se le comunica al ordenador, luego veremos la forma de 
hacerlo, por filas. De tal manera que cada una estará formada por 8 dígitos 
binarios (un byte). 

Para indicar que los números están en binario les pondremos el prefijo 
BIN. Así, en nuestro ejemplo: 


BIN 00000000 
EIN 00111100 
BIN 00000000 
BIN 00111100 
BIN 00100100 
BIN 00100100 
BIN 00100100 
EIN 00000000 
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o, también podemos expresarlos en decimal; y, en nuestro caso, éstos serían: 
0, 60, 0, 60, 36, 36, 36, 0. 


Al definir un nuevo carácter gráfico, siempre se le asocia una letra de la 
A a la U. En nuestro caso elegimos la N. Para poder obtener más tarde el 
carácter ya definido, tendremos que pasar el cursor a modo G y pulsar la 
tecla de la letra asociada; en nuestro ejemplo la N 

Vamos ahora, a comunicarle al ordenador el byte correspondiente a 
cada fila. En primer lugar, veamos como hacerlo en decimal, y 
posteriormente lo veremos en binario. 

La primera fila se introducirá con la instrucción: 


POKE USR “N”,Q 


con lo que se almacena un cero en la posición de memoria llamada “N”. 
Con las demás filas, haríamos lo mismo; así, para la segunda sería: 


POKE USR “N” + 1, 60 


y análogamente hasta la última, que será: 
POKE USR “N”+7,0Q 


USR localiza la posición de memoria a partir de la cual se encuentran 
almacenados los 8 bytes que definen nuestro carácter gráfico. 

Como hemos dicho anteriormente, cuando presionemos la N con el 
cursor en G, nos aparecerá la ñ. 

De esta forma tendríamos que introducir 8 líneas como las anteriores, 
por lo que es preferible usar READ y DATA. Nuestro programa quedaría en 
la siguiente forma: 


10>FOR X=0T0O 7 


20 READ A . 
30 POKE USR "N"+X,A 

40 NEXT XxX y 

50 DATA 0,60,0,60,36,36,36,0 
60 STOP 


En binario, las líneas serían de la forma: 


10 POKE USR "N”,BIN 00000000 
20 POKE USR "N"+1,BIN 00111100 
30 POKE USR "N"+2,BIN 00000000 
- 50 POKE USR "N"+3,BIN 00111100 
50 POKE USR "N"+4,BIN 00100100 
60 POKE USR "N"+S5,BIN 00100100 
7O POKE USR "N"+65,BIN 00100100 
30 POKE USR "N"+7,BIN 00000000 


y el programa será igual que el anterior, con la sustitución del DATA de la 


línea 5), por: 


00111100,BIN 00100100,BIN 00100100, BIN 00100100, BIN 


CHO OOO OO 


so Daría ElN DODODOOO, BIN D0111100,EIN 00000000, BIN 


Notas: 
1) Para grabar estos caracteres, así definidos, en cinta se emplea: 
SAVE “nombre” CODE USR “N” 8 


procedimiento descrito en el apéndice 1. 
2) Como estos gráficos se almacenan en la parte superior del RAMTOP 
al presionar NEW no desaparecerán. 


14.3. PLOT, CIRCLE, DRAW.—Para las instrucciones que vamos a 
ver a continuación, los ejes de referencia se cambian respecto de los 
empleados con PRINT. Para todo lo relacionado con gráficos el origen de 
referencia estará en la esquina inferior izquierda de PAPER. 

La primera coordenada, x, toma valores desde Q a 255, de izquierda a 
derecha. La segunda, y, varía desde Q a 175, de abajo a arriba. Así, las 
cuatro esquinas de PAPER tendrán las siguientes coordenadas: 


(0, 175) (255, 175) 


(9, 0) (255, 0) 


PLOT: 
Su expresión general es: 
PLOT x, y 


y coloca un pixel (el espacio ocupado por un carácter se divide en 8 x 8 = 
64 pixels) del color de la tinta en el punto de coordenadas x, y. 

Por ejemplo, PLOT 127, 87 coloca un punto, apenas perceptible, en el 
centro de la pantalla. 

CIRCLE: 


Esta instrucción permite dibujar circunferencias. Su expresión general 
es: 


CIRCLE x, y, + 


donde x, y son las coordenadas de su centro y rsu radio. 
Por ejemplo, CIRCLE 127, 87,54 dibuja una circunferencia de radio 54 
en el centro de la pantalla. 


DRAW: 
Su expresión general es: 
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DRAW x, y 


y une con una línea recta los siguientes puntos: 

—el último dibujado por PLOT, DRAW o CIRCLE. 

—el punto que obtenemos avanzando, el punto anterior, x lugares hacia 

la derecha (o hacia la izquierda si x es negativo) e y lugares hacia 

arriba (o hacia abajo si y es negativo). 

Nota: Si no hay dibujado ningún punto anteriormente, DRAW toma 
como punto de partida el (Q, 0). 

Ejemplo 3: El siguiente programa dibuja el contorno de PAPER, 
comenzando en el origen: 


10 DRAW 255,0: DRAW 0.173 
20 DRAW -255,.0: DRAÁW 0,-175 


Podríamos haber conseguido lo mismo con: 


10 FOR N=1 TO 4 
20 READ A, BE 

ZO DRAW A,E 

40 DATA 255,0,0,175,-255,0,0,-175 
SO NEXT N 

60 STOF 


Otra posibilidad de DRAW es dibujar arcos de circunferencia. Así: 
DRAW x, y, a 
donde x, y representa lo mismo que antes, pero ahora no une los 2 puntos 
con una recta sino con un arco de circunferencia de a radianes de 


amplitud. 
Así, por ejemplo: 
PLOT 140, 59: DRAW 484, 54, PI 
une los puntos (140, 50) y (14M, 190) con una semicircunferencia, que es el 
arco que corresponde a PI radianes (recordemos que 364% son 2PI 
radianes). 
Notas: 


1) A veces es sorprendente el efecto que puede tener DRAW. Así, si 
introducimos: 


PLOT 127, 87: DRAW 59, 50, N 
cuando N = 206000000, obtenemos la figura: 
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si N = 2000, obtenemos: 


2). Con PLOT, DRAW y CIRCLE también es posible utilizar color, por 


ejemplo: 


10 DRAÁW  —INK 1,100,50 


Sin embargo, es preciso tener cuidado si cambiamos simultáneamente de 
color de PAPER: 


10 FOR M=0 TO 72 | 

20 PAPER M-7*INT (M/7): BORDER M+1-7*INT (M/7) 
30 CIRCLE  INK M+2-7*INT (M/7),127,85,80-M 

20 NEXT M 


Ejemplo 4: El siguiente programa permite obtener curiosas gráficas, que 
dependen de dos parámetros a, bintroducidos por el usuario. Probar con a 


=5yb=3,a=4yb= 2, a = 10000 y b= 10000, etc. 


10 INFUT a,b 

20 LET t=3:2 LET z=80 

ZO FOR n=0 TO 2x*P1 STEF 2x*P1/720 
240 LET r=zX*SIN (nx*t) 

SO LET x=rx*COS (ax*n) 

60 LET y=r*SIN (bx*n) 

65 PLOT x+127, y+86 

70 NEXT n 


También puedes obtener los números a y b al azar; e incluso, lograr 
efectos más espectaculares con color y sonido. 


Ejemplo 5: Este programa dibuja círculos de radio 5 y centro y color 


aleatorio. 


10 
13 
20 
30 
40 
SO 
60 
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El número de círculos es introducido por el usuario. 


REM circulos 

BORDER 1: PAPER 1: CLS 

INPUT "CUANTOS CIRCULOS TE DIBUJO”? "3n 
FOR x=1 TO n 

INK INT (RND*6+1) 

CIRCLE INT (RNID*245+5), INT (RND*165+5),53 
NEXT x 


Ejemplo 6: Este programa dibuja aleatoriamente, con DRAW, diversas 
estrellas: 


10 PLOT 177,87 

20 LET M=INT (RNDx100) 

30 LET N=INT (RNDx*100) 

35 IF M=N THEN 60 TO 20 

36 PRINT M,N 

40 FOR X=1 TO N 

60 LET A=2*PIx*M/N 

70 DRAW S5O*(COS (A*X)-COS (A*(X-1))).5O* (SIN (A*X) 
-SIN (A*(X-1))) 

80 NEXT X 

100 PAUSE Oz CLS : GO TO 10 


Aquí tienes un par de ejemplos de las figuras obtenidas: 


Ejemplo 7: Con este programa podemos dibujar las curvas llamadas de 
Lissajous: 


10 INPUT a 

20 INPUT b 

30 FOR x=0 TO 2*PI STEP 0.1 

40 PLOT 127+80x*SIN x,87+80*SIN (axx+2x*bx*P1): BEEP 
0.005,0.05 

50 NEXT x» 


14.4. POINT.—Esta instrucción permite averiguar si en un punto de la 
pantalla hay algo impreso o no. Su expresión general es: 


POINT (x, y) 


donde (x, y) son las coordenadas del punto en cuestión; donde, x, puede 
tomar valores entre Q y 255, e y entre Q, 175; es decir, de forma análoga a 
las coordenadas de PLOT. l 

Si en el punto (x, y) hay algo escrito POINT (x, y) tomará el valor 1, y en 
caso contrario valdrá f. 

Compara los resultados de los siguientes programas: 
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10 FLOT 127,88 10. PLOT 127,88 
20 PRINT PDINT (127,889) 20 PRINT POINT (127,89) 
30 STOP 30 STOP 


En cierto modo, esta instrucción es parecida a SCREENS, pero mientras 
que esta lee todo el espacio reservado para representar un carácter, POINT 
sólo lee un pixel. 


Nota: Aunque nosotros no veamos el pixel, por estar dibujado con el 
mismo color de tinta que el fondo, POINT si lo hace: 


10 INE d: PAPER 12 CLS 

ZO PLOT 127588 

30 PRINT— INE 75POINT (127,88) 
40 PRINT — INK 75POINT (12/,89) 
30 STOP 


La instrucción POINT, como SCREENS, se emplea muy a menudo en 
juegos. 


PROGRAMAS PROPUESTOS 


P.123. Conseguir definir el carácter “Ñ” (mayúscula). 

P.124. Definir un carácter que sea un tablero de ajedrez en miniatura. 

P.125. Dibuja un muelle en pantalla. 

P.126. Dibujar un cuadrado, centrado en la pantalla, que se divida en 8 
x 8 cuadrados. 

P.127. Construir un campo de fútbol. 

P.128. Dibujar un triángulo equilátero en el centro de la pantalla. 

P.129. Dados los resultados de las calificaciones: de un determinado 
curso, representarlas con un diagrama de barras. . 

P.130. Dibujar una espiral. 

P.131. Haz un programa con INKEY*$, que dibuje en pantalla utilizando 
las 8 techas que rodean a la techa S. Si presionamos la tecla W avanzará el 
pixel hacia el norte, si presionamos E, avanzará hacia el noreste, si 
presionamos D hacia el este, etc. 
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CAPITULO 15 


MAS PROGRAMAS PROPUESTOS 


F.1. Un cuadrado mágico de orden n es una matriz formada por los 
números enteros comprendidos entre 1 y »?, de forma que al sumar los 
números de cada una de las n filas se obtiene siempre el mismo número, 
que debe ser igual a la suma de los números de cualquier columna, y a la 
suma de los números de ambas diagonales. 

Hacer un programa que permita completar el siguiente cuadrado 
mágico, reproducido por Durero en 1514 en su grabado “Melancolía”: 


F.2. Consideremos ahora “pseudocuadrados mágicos”, que cumplen las 
condiciones anteriores pero no exigen que los números que lo conforman 
sean enteros comprendidos entre 1 y »?. La disposición general de un 
“pseudocuadrado” mágico de orden 3 es: 


E E 
a] 


Siendo X, Y, Z enteros positivos cualesquiera. 

Hacer un programa que genere los 729 “pseudocuadrados” mágicos de 
orden 3 que se obtienen al variar X, Y, Z entre 1 y 9. Deberán aparecer en 
pantalla de 3.en 3 cuadrados durante un segundo cada uno y, si además es 
un cuadrado mágico, aparecerá un mensaje de aviso. 


F.3. Construir cuadrados mágicos de orden n impar, siguiendo el 
siguiente algoritmo: 


i) Se sitúa el 1 encima de la posición central; es decir, si n = 3 se 
coloca en (1, 2), si n= 5 en (2, 3), etc. 
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ii) Los siguientes números se colocan en el orden natural siguiendo la 
dirección noreste. Si la posición de llegada ya está ocupada 
seguimos la dirección noroeste. 

iii) Si salimos de los límites del cuadrado: 


—si sobrepasamos la columna por la izquierda (derecha) colocamos 
el siguiente número en la última (primera) columna de la fila que 
le corresponde. 

—si sobrepasamos las filas colocamos el número siguiente en la 
última fila de la columna que le corresponde. 


F.4. Hacer un programa que nos traduzca los números romanos a la 
notación actual. Por ejemplo, si introducimos MCDIV en pantalla aparecerá 
MCDIV = 1484. 


F.5. Construir el programa inverso al anterior. Si introducimos 1512, en 
pantalla deberá aparecer 1512 = MDXIL 


F.6. Un problema clásico y muy conocido es el del estudiante de inglés 
que envía a su padre el siguiente telegrama: “SEND MORE MONEY”. El 
padre le responde: “Te enviaré el dinero si calculas el valor que ha de tener 
cada letra para que sea cierto: 


SEND 
+ MORE 
MONE Y 


sabiendo que letras iguales (distintas) tienen idéntico (distinto) valor”. 
Construir un programa que le resuelva la papeleta al estudiante. 


F.7. Elaborar un programa que resuelva sistemas de n ecuaciones con 
n incognitas. Se deberá indicar, cuando así ocurra, si el sistema es 
incompatible o indeterminado. 


Nota: Si Xy, Xp, X3p cocooo , x, son las n incognitas, escribir las ecuaciones, por 
ejemplo la número i, en la forma: 
A) DORA HA AZ Er +a(i¡n)x,=a(i,n+l) 


F.8. Construir un programa que simule la búsqueda de un tesoro que 
se oculta al azar en una de las 744 casillas en que se divide la pantalla del 
Spectrum. Se irán dando posiciones hasta un máximo de 14. Si la casilla 
que indicamos está contigua a la del tesoro aparecerá un mensaje de “muy 
cerca”; si es contigua a una contigua el mensaje será “cerca”; en los demás 
casos será “lejos”. 


F.9. Piet Hein, humanista y científico danés, estudió a principios de los 
años 6% las curvas, que llamó superelipses, de ecuación: 


(x/a)" + (y/b)"= 1 con n > 2 
La más agradable a la vista, según Hein, es la correspondiente a n= 2.5. 
Hacer un programa que la dibuje. Suponer por ejemplo que a/b = 2. 


F.1f. Hein estudió también las curvas de ecuación x”+y"=1 con n >2, 
a las que llamó supercírculos. 
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Hacer un programa que genere en pantalla simultáneamente las curvas 
correspondientes a n = 2/3 (astroide), n = 2 (circunferencia) y n = 4. 


F.11. Construir un programa que multiplique o divida dos polinomios 
dados cualesquiera. Introducir primero el polinomio de mayor grado. 


F.12. Hacer un programa para jugar a la captura de la rana. En una de 
las 794 casillas de la pantalla el Spectrum coloca al azar una rana; el juego 
consiste en encontrar la casilla en que ésta se encuentra. El ordenador irá 
indicando la distancia entre la casilla dada por nosotros y la casilla en que 
se halla la rana. Para no hacerlo muy fácil, tras cada jugada la rana salta al 
azar a una casilla contigua a la que se encontraba, rebotando en los bordes 
de la pantalla. 


F.13. Hacer un programa que escriba en pantalla siguiendo el método 
Bustrofedon. Este procedimiento, ya usado por los griegos en la antigúedad, 
consiste en escribir las filas impares de izquierda a derecha, como lo 
hacemos normalmente, y las pares de derecha a izquierda. Veamos un 
ejemplo: 

Me gustan dos cosas, 
¡Út y serolf sal 

las flores por un día 
.erpmeis arap út y 


F.14. Si suponemos que la Tierra es una esfera, la distancia entre dos 
ciudades cualesquiera viene dada por la expresión: 


D = 6378 (PI/2 — arc tg (cos (a) cos (b)/ y 1— cos?a cos?b)) 


siendo a y blas diferencias de longitud y latitud entre las dos ciudades, en 
radianes. Si están en el mismo hemisferio las latitudes se suman en lugar de 
restarse, y análogamente con las longitudes. 

Construir un programa que calcule la distancia hipotética entre dos 
ciudades cualesquiera dadas sus latitudes y longitudes. 


F.15. Hacer un programa para tirar dardos a una diana; ésta aparecerá 
al azar en la pantalla y estará formada por 3 círculos concéntricos, 
disminuyendo cada tirada su tiempo de exposición. Lanzaremos el dardo 
(dando las 2 coordenadas) 1( veces y se le asignará una puntuación de 1f, 5 
y 2, según el círculo en que haya caído el dardo. Al cabo de las 14 tiradas se 
nos dará la puntuación total. 


F.16. Construir un programa que permita conseguir una buena 
presentación al introducir números decimales. El punto de todos los 
números decimales estará, por ejemplo, en la columna octava. 


F.17. Hacer un programa en que se introduzcan 3 funciones h (x), g (x) 
y f (x) y obtengamos f (g(h(x))) para un valor dado de x. 


F.18. Se llaman números pitagóricos a los enteros positivos x, y, z que 
cumplen x? + y? = z?, 

Elaborar un programa que halle todas las ternas de números pitagóricos 
menores que 100 (hay 5f ternas distintas). 


F.19. Una terna de números pitagóricos se dice primitiva si los tres 
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números son primos entre sí. Hallar las ternas primitivas de números 
pitagóricos menores que 1Pf (hay 16) utilizando el siguiente algoritmo: 


Los valores de x, y, z vienen dados por: 
x= m?—n? y =2 mn z = m?+n? 
donde m, n son enteros positivos de distinta paridad, m > n y mcd (m, n) = 1. 


F.2f. Construir un programa que visualice en pantalla un círculo de 
radio 2f en el punto que se desee. El círculo irá aumentando de 5 en 5 su 
radio hasta el máximo posible; en ese momento, comenzará a disminuir su 
radio hasta volver a su posición inicial. 


F21. Tenemos que encontrar un número del 1 al 140, elegido al azar 
por el Spectrum, en menos de 8 intentos. Aparecerán mensajes de “muy 
cerca”, “cerca”, “un poco lejos”, “lejos” o “muy lejos” según la proximidad 
entre los dos números. 


F.22. En la pantalla se han escondido al azar 14 submarinos, que no 
pueden estar en casillas contiguas. Disponemos de 25 cargas de pro- 
fundidad,; la casilla se coloreará de azul si hemos fallado y de negro en caso 
contrario. Al final se indicará la posición de los submarinos y el número de 
éllos que hemos hundido. 


F.23. En un hotel espacial de forma cúbica se encuentra un ladrón. El 
hotel tiene 9 plantas (numeradas de abajo a arriba), cada una con 9 pisos 
(numerados de izquierda a derecha) y cada uno de estos con 9 habitaciones 
cúbicas una tras otra (numeradas de delante a atrás). Cada habitación se 
comunica con sus 6 contiguas. 

El Spectrum dará mensajes de arriba, abajo, derecha, izquierda, delante 
o: detrás según la posición del ladrón. Pero éste, al sentirse amenazado, 
escapará al azar a una de las 6 habitaciones contiguas, pero sin poder salir 
del hotel. Cuando se capture al ladrón se indicará el número de intentos 
efectuados. 


F.24. Vamos a intercambiar nuestros papeles: nosotros elegimos un 
número del 1 al 194 y el Spectrum deberá encontrarlo. La búsqueda se 
realizará tomando aproximaciones al azar. 


F.25. Los tres programas siguientes nos van a permitir jugar a los 
dados. El primer juego se suele llamar “la jaula”; en una jaula se lanzan 3 
dados, si n de ellos coinciden con el número que elegimos recuperamos 
nuestra apuesta multiplicada por n. Podemos continuar mientras tengamos 
dinero (comenzar con 144 ptas.). 


F.26. En este juego pueden participar varios jugadores. Consiste en 
tirar 5 dados y sumar sus puntuaciones, si alguno ha sido 2 o 5 se vuelve a 
tirar y se suman los puntos a la suma anterior, excepto si sale un 2 o. un 5 
que no suman nada. Se considera la última cifra de la suma de 
puntuaciones, y gana el jugador que está más cerca de 9. 


F.27. Se lanzan 2 dados y se apuesta sobre si su suma es mayor que 7 
o menor que 7 o igual a 7. En caso de acertar en cualquiera de las dos 
primeras opciones ganamos lo apostado, y en caso de acertar en la tercera 
ganamos el triple de lo apostado. Podemos seguir jugando mientras 
tengamos dinero (comenzar con 104 ptas.). 
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F.28. Cuenta la leyenda que cuando el matemático S. Ramanujan 
estaba en las últimas, le visitó G. Hardy. Este le comentó que la matrícula 
del taxi que le había llevado era 1729, a lo que Ramanujan respondió 
rápidamente: “Es un bello número, puede expresarse de 2 formas como 
suma de 2 cubos perfectos”. 

Construir un programa que calcule las dos parejas de números cuya 
suma de sus cubos es 1729, 


F.29. Simular lanzamientos de un dado. El programa finalizará cuando 
tras dos lanzamientos seguidos las 6 frecuencias relativas de las 
puntuaciones hayan variado menos que un número dado por el usuario 
(una milésima, una centésima, etc.), imprimiéndolas a continuación. 


F.3f. En el libro “Liber abaci” del siglo XIII, Leonardo de Pisa (llamado 
también Fibonacci) estudia un problema un tanto curioso: la proliferación 
de conejos, con una serie de condicionantes que lo hacen relativamente 
sencillo. Supone que los conejos de una generación cualquiera son 
descendientes directos de las dos generaciones anteriores, y además, el 
número de hijos es igual al de padres; con lo cual, si a (n) es el número de 
conejos de la generación n-ésima, lo anterior se traduce en la expresión: 


a (n)=a(n—1)+a(n—2) 


Consideró, por comodidad, a (1) = a (2) = 1 y obtuvo así la llamada 
sucesión de Fibonacci: 1, 1, 2, 3, 5, 8, 13, 21, ........ 

Construir un programa que nos muestre en pantalla los n primeros 
términos de esta sucesión; y, comprobar que la razón entre dos términos 
consecutivos tiende hacia un número constante (1 + y 5)2, llamado nú- 
mero aúreo. 


F.31. Hacer un programa que muestre en pantalla el método ruso de 
multiplicar. Por ejemplo, si queremos multiplicar 57 por 86 ponemos en una 
columna las mitades enteras de un número y en otra columna los diversos 
duplos del otro: 


y 86 
28 172 
14 344 
7 688 
3 1376 
1 21752 


borramos ahora las cifras pares de la columna de la izquierda y los 
números, de la columna de la derecha, que están enfrente. Por tanto, la 
columna de la derecha es ahora: 


86 
688 
1376 
2752 


Si sumamos los 4 números de esta columna obtenemos el resultado 
deseado 49f2 (= 57 x 86). 
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F.32. Hacer un programa que pase un número escrito en el sistema 
decimal al hexadecimal, base 16. 


F.33. Confecciona un programa de forma que al introducirle una frase 
la reproduzca en pantalla moviéndose de derecha a izquierda. 


F.34. Haz un programa que enseñe a multiplicar. Se eligen al azar 2 
números de 3 cifras y se pide el producto cifra a cifra, contabilizando 
además los errores. 


F.35. Construir el programa inverso del F.32; es decir, que pase de 
hexadecimal a decimal. 


F.36. Hacer un programa que traduzca a MORSE. Imprimirá en 
pantalla los puntos y rayas correspondientes y a la vez emitirá el sonido por 
el altavoz. Emplea subrutinas. 


F.37. Construir un programa que permita dibujar de forma aleatoria en 
pantalla; sin salirse de ella, claro está. 


F.38. Hacer otro programa análogo al F.36 empleando READ—DATA, 
en lugar de subrutinas. 


F.39. Elaborar un programa para hacer quinielas. Se pedirá la 
probabilidad de cada signo en cada partido. Al final indicará el número de 
variantes. 


F.44. Mejora el programa P.131, de forma que además de dibujar 
borre, trace rectas, círculos e incluso permita salvar la gráfica así obtenida. 


F.41. Encontrar todos los números de tres cifras en base 5 y 7, que se 
escriban al revés en una base y en la otra. Es decir, cumplen: 
XyZ ¿=ZyX 


(S (7 


F.42. Escribir un programa que sirva de calendario perpétuo; es decir, 
que nos diga el día de la semana en que cae una fecha dada (para evitar 
más complicaciones suponerla de los siglos XIX, XX o XXD. 


F.43. Hacer un programa para jugar al Master-mind. 


F.44. Dibujar un campo de baloncesto. Las zonas y el círculo central 
serán de distinto color que la cancha. 


F.45. Mostrar como se obtienen las gráficas de la función seno y 
coseno, moviendo un punto por un círculo. 


F.46. Construir un programa que nos resuelva cualquier tipo de 
triángulo. Es decir, dando 3 datos del triángulo calcular los restantes. 


134 


APENDICE 


GRABACION Y CARGA DE PROGRAMAS 


1. SAVE, VERIFY, LOAD y MERGE.—El ordenador perdería gran 
parte de su utilidad si cada vez que hay que usar un programa tuviésemos 
que teclearlo “línea por línea”. Afortunadamente, cuando queremos guardar 
un programa que tenemos en la memoria de nuestro aparato, lo podemos 
lograr con la ayuda de un sencillo magnetófono a cassettes. 

El magnetófono a emplear tiene que tener una conexión para EAR y 
otra para MIC, siendo muy frecuente que estas conexiones se adapten al 
cable que se suministra con el Spectrum. Será muy interesante que nuestro 
magnetófono disponga de cuenta-vueltas para poder localizar fácilmente los 
programas ya grabados. El nivel de grabación de los aparatos modernos 
suele ser automático, pero si dispones de uno de nivel no automático lo 
tendrás que regular entre el valor medio y el valor máximo, o bien hacer 
pruebas hasta que encuentres el punto adecuado. 


Para grabar procederemos así: 


l. Conecta el cable que se suministra con el Spectrum de la forma 
siguiente: 


—jack negro 1% a la conexión MIC del Spectrum. 
—jack negro 22 a la conexión MIC del magnetófono. 
—jack gris 12 a la conexión EAR del Spectrum. 
—jack gris 22 ¡DESCONECTADO! 


Introduce la cinta en el magnetófono y sitúala en la zona a grabar. 
Teclea SAVE “nombre del programa”. Entre las comillas debe ir el 
nombre del programa, cuidando de que como mínimo tenga un 
carácter y como máximo 10, incluidos los espacios. La palabra 
inglesa SAVE significa: salvar, conservar. : 

4. Presiona ENTER; si el nombre se sale de los márgenes indicados 
anteriormente aparecerá el siguiente mensaje de error: 


F invalid file name, (: 1 
y, si el nombre es correcto, dará este otro mensaje: 


mo 


Start tape, then press any key 


o sea, poner el magnetófono en marcha y presionar una tecla. 
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5. Ahora, aparecen en pantalla dos bloques de franjas: 


—las primeras son rojas y azules, y en ellas va el nombre del 
programa. 

—las segundas son amarillas, azules y negras, y es donde se halla el 
programa propiamente dicho. 


6. Al terminar la grabación surge el mensaje: Y O K, y el programa 
debe estar ya grabado en la cinta. 

7. Ahora puedes rebobinar la cinta y escuchar, a bajo volumen, la 
grabación del programa. Si no escuchas ningún sonido algo ha 
faltado; en el apartado siguiente vamos a estudiar la manera de 
averiguar si la grabación ha sido correcta o no. 


Notas: 


1) Es importante mantener el cable de EAR desconectado en el 
Spectrum, ya que en la mayor parte de los magnetófones la grabación no 
se efectuaría. : 

2) Al efectuar la grabación, no sólo se conserva el programa sino 
también todas las variables que se hubiesen definido, incluso como 
comandos directos. Si se quiere comprobar esto habrá que utilizar GOTO 1 
para ejecutar el programa, ya que si empleamos RUN se borran todas las 
variables. 

3) Hay una manera de conservar programas que es muy efectista para 
impresionar a nuestras amistades; la orden deberá ser: 


SAVE “nombre” LINE número de línea n 


y, al ser cargado el programa, se autoejecutará automáticamente a partir de 
la línea n. 

4) Todavía hay otras formas de utilización de SAVE que veremos 
posteriormente en este mismo apéndice. 


Para verificar el programa grabado procederemos así: 


1. Se rebobina la cinta hasta la posición de comienzo del programa. 
Esta operación se realiza más fácilmente si nuestro magnetófono 
dispone de cuentavueltas. 

2. Se conecta el jack gris a EAR del magnetófono; no es necesario 


quitar el jack de MIC. 

3. El volumen del magnetófono lo colocas entre la mitad y el máximo. 

4. Teclea: VERIFY “nombre del programa”, aunque también se admite 
VERIFY “ ”, sin nada entre comillas, ni siquiera un espacio en 
blanco. 

En el primer caso, el ordenador compara el programa que tiene 
en memoria con el que se encuentra en la cinta con el mismo 
nombre. 

En el segundo caso, compara el programa que tiene en memoria 
con el primero que encuentra. La palabra inglesa VERIFY significa: 
verificar, comprobar. 

5. En ambos casos, presionar ENTER y empezará a escucharse por el 
altavoz del Spectrum el sonido del programa grabado. Aparecen los 
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dos grupos de franjas, y, después del primero, se imprime en pantalla 
el nombre del programa que se ha encontrado. Sí éste no tiene el 
mismo nombre que el dado en VERIFY, se continúa con el siguiente 
programa que hay en la cinta. 

6. Sila verificación o comparación, es positiva, aparece el mensaje: 


QOK : 
y, si es negativa nos da el mensaje: 
R Tape loading error, f: 1 


o simplemente nada. 


Posibles causas de que no se verifique un programa: 


1. Si el sonido de la grabación no es correcto y limpio, el magnetófono 
no ha grabado correctamente; las posibles razones pueden ser: 


a) las conexiones no eran correctas: EAR estaba conectado o se 
habían intercambiado los cables. 

b) el volumen de grabación, caso de ser regulable, no es el 
correcto, Habrá que probar con otro volumen. 

c) el magnetófono empleado no es adecuado para el Spectrum. 

d) el magnetófono o el Spectrum están estropeados. 


2. Comprueba que has escrito, al verificar, el nombre del programa 
como lo tenías antes exactamente. Tener presente que el espacio en 
blanco cuenta en algunas ocasiones y en otras no. Así, un programa 
grabado como “ab” a la hora de verificarlo con: 


VERIFY “a b” da negativo 
VERIFY “ab ” da positivo 

VERIFY “ ab” da negativo 
VERIFY “ab ” da positivo 


3. Comprueba si el volumen de reproducción es correcto o no, prueba 
de nuevo con otro volumen. Igual puede suceder con el tono. 

4. Comprueba que las cabezas de grabación estén bien limpias, y 
prueba con otra marca de cinta por si acaso. 


Como cargar programas en el ordenador: 


Para cargar un programa, que tenemos almacenado en una cinta, en el 
ordenador debemos emplear la sentencia LOAD (cargar). Con esta 
sentencia, al cargar un programa se borra automáticamente cualquier 
programa que pudiésemos tener en la memoria del ordenador e incluso las 
variables que se hubiesen definido. 

Se emplea de forma análoga a VERIFY, ya que ésta última también lee 
el programa de la cinta: 


1. Asegurarse de que las conexiones de EAR del Spectrum y EAR del 
magnetófono están con el mismo cable, igual color de jack. Es 
indiferente que esté conectado o no el cable de MIC. 

2. Poner la cinta al comienzo del programa, para lo cual vuelve a ser 
de gran utilidad el cuenta-vueltas. 
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3. Teclea: LOAD “nombre del programa”, o bien: LOAD *”. 

En el primer caso, busca el programa que tiene el nombre dado y 
cuando lo encuentra lo carga, lo que es especialmente útil cuando 
desconocemos donde se encuentra el programa en la cinta. En el 
segundo caso, el ordenador carga el primero que encuentra. 

4. Todo lo dicho en el apartado de VERIFY referente al nombre del 
programa y los espacios en blanco se cumple para LOAD. 

5. Las causas de error en LOAD son las mismas vistas anteriormente 
para VERIFY. 


Otra posibilidad para cargar programas en el ordenador: 

La sentencia MERGE (fundirse) es similar a LOAD, con la diferencia de 
que no borra el programa que había en la memoria del ordenador. Es decir, 
si tenemos un programa A en el ordenador y cargamos otro B con MERGE 
ambos programas se funden en un único programa, borrándose sólo: 


a) las líneas del programa A que coinciden en numeración con las de B. 
b) las variables del programa A que tienen el mismo nombre en B. 


Ejemplo 1: Si tenemos el siguiente programa en el ordenador: 


10>REM ESTE PROGRAMA SUMA DOS NUMEROS 
20 INPUT A 

30 INPUT E 

40 PRINT A+B 


y cargamos de la cinta el siguiente programa, usando MERGE: 


10>REM ESTE PROGRAMA MULTIPLICA DOS NUMEROS 
40 PRINT Ax*B 
50 STOP 


Obtenemos el programa: 


10>REM ESTE PROGRAMA MULTIPLICA DOS NUMEROS 
20 INPUT A 

30 INPUT B 

40 PRINT AXB 

50 STOP 


Como se observa, cuando dos líneas tienen igual numeración en ambos 
programas, queda en el ordenador la última que entra en su memoria, 
borrándose la anterior. 


Nota: Si queremos cargar un programa que hemos grabado en 
autoejecución (es decir, con SAVE “ ” LINE n), pero no deseamos que ésta 
se realice es preciso utilizar MERGE en lugar de LOAD. 


2. Conservación y carga de matrices.—Recordemos (Capítulo 9) que 
una matriz es una tabla, no necesariamente numérica, dispuesta en filas y 
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columnas; y, suelen ser bastante útiles para almacenar datos (fichero de 
datos). 


Ejemplo 2: Definimos la matriz la , ] 


con el programa: 
10>DIM A(2,2) 
20 FOR X=1 TO 2 
30 FOR Y=1 TO 2 
40 READ A(X,Y) 
50 NEXT Y 
60 NEXT X 
70 DATA 0,3,2,6 
Una vez ejecutado nuestro programa, ya tenemos la matriz definida, y si 
queremos conservala en cinta emplearemos la instrucción: 


SAVE “nombre” DATA nombre de la matriz () - 


En nuestro ejemplo, el nombre que hay entre comillas puede ser 
cualquiera: “números”, “datos”, etc.; el nombre de la matriz será A, que es la 
denominación dada en las líneas 19 y 4f. En este ejemplo emplearíamos, 
para conservar la matriz, la instrucción: 


SAVE “NUMEROS” DATA A() 


Para comprobar que la grabación ha sido correcta emplearemos: 
VERIFY “NUMEROS” DATA A() 


con lo que aparecerá en pantalla: 
Number array: NUMEROS 


y, si todo ha ido correcto: Y OK, Q: 1 


A partir de este momento siempre que queramos disponer de la matriz 
emplearemos: 


LOAD “NUMEROS” DATAA() 


Ejemplo 3: Vamos a definir y almacenar una matriz que guarde la 
fecha de nacimiento de unos cuantos amigos; la matriz ahora será 
alfanumérica. 

La definimos ejecutando el siguiente programa: 


10>DIM A$(3,2,7) 

20 FOR X=1 TO 3 

3O FOR Y=1 TO 2 

40 READ A$(X,Y) 

50 NEXT Y 

6560 NEXT X 

70 DATA "PEPE", "011054", "JUAN", "021260", "ANTONIO", 

"101250" 
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Para conservar la matriz emplearemos: 
SAVE “NOMBRE” DATA A$() 


y para verificar la grabación: 
VERIFY “NOMBRE” DATA A$() 


con lo que en pantalla aparecerá el mensaje: 
Character array: NOMBRE 


y además el mensaje Q OK, 9: 1 si todo ha ido bien. 
Cuando más tarde necesitemos disponer de esta matriz, emplearemos la 
instrucción: 


LOAD “NOMBRE” DATA A$() 


y para ver que efectivamente se ha cargado: 


10>FOR X=1T0 3 
20 FOR Y=1 TO 2 
30 PRINT A$(X, Y), 
20 NEXT Y 

50 NEXT X 


Con la advertencia de emplear GOTO en lugar de RUN, para no borrar 
las variables. 


Notas: 


1) Al cargar una matriz no se borra el programa que teníamos en el 
ordenador. 

2) Al cargar una matriz que hemos llamado A ( ) se borran todas las 
variables con ese nombre. Lo mismo sucede con Af ( ). 

3) MERGE no se puede utilizar con matrices. 


3. Conservación y carga de gráficos y pantalla.—Es posible almacenar 
bytes directamente con la instrucción: 


SAVE “NOMBRE” CODE A, B 
donde: A es la dirección de memoria donde empezamos a almacenar 
nuestros bytes; B es la longitud, en bytes, de la grabación. 
Esta modalidad es especialmente útil en los casos siguientes: 
1. Para almacenar la imagen de la pantalla: 
SAVE “NOMBRE” CODE 16384, 6912 


ya que a partir de la dirección 16384 de la memoria se encuentra 
toda la información sobre dicha imagen de pantalla, incluídos 
atributos: color, brillo, etc. 
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Otra manera de conseguir este mismo efecto es: 
SAVE “NOMBRE” SCREEN$ 


Para cargar en el ordenador la imagen de pantalla almacenada 
en cinta, por cualquiera de las dos formas, se emplea: 


LOAD “NOMBRE” SCREEN$ 


Con estas grabaciones no se puede utilizar VERIFY. 

2. También se pueden grabar en cinta gráficos definidos por el usuario. 
Si, por ejemplo, hemos definido el carácter “ñ” con el programa: 
10>FOR X=0TO 7:READ A:zPOKE USR "N"+X,A:NEXT X 

20 DATA 0,60,0,60,36,36,36,0 


lo podemos conservar en cinta con la instrucción: 
SAVE “EGNE” CODE USR “n”, 8 


y cargarlo con: 
LOAD “EGNE” CODE o LOAD “EGNE” CODE USR “n” 


Ahora sí podemos verificar la grabación, con: 
VERIFY “EGNE” CODE 


Nota: Con el empleo de NEW, borramos el programa pero no así los 
gráficos definidos por nosotros. 


4. Ajuste del azimut.—Si tienes dificultad con tu magnetófono a la 
hora de cargar cintas que se supone están bien grabadas, como pueden ser 
las comerciales, es posible que tengas una avería fácil de solucionar: la mala 
orientación de la cabeza lectora respecto de la cinta. 

La operación que vamos a describir ahora se llama. “ajuste del azimut” y 
consiste en lo siguiente: 


—Consigue una cinta que esté bien grabada. 

—Pon el magnetófono en marcha y escucha la cinta. 

—Cerca de la cabeza magnética verás un orificio y un tornillo. 

—Con un destornillador gira el tornillo poco a poco hasta conseguir un 
sonido más agudo. 
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SOLUCIONARIO 


EJERCICIO 17 


10 INPUT "DAME LA DISTANCIA EN KM "5D 
20 INPUT "HORAS EMPLEADAS "5H 

30 PRINT "LA VELOCIDAD MEDIA HA SIDO " 
35 PRINT 

40 PRINT 

50 PRINT D/H3" KM/H" 

60 STOP 


EJERCICIO 183 
10 INPUT "DAME R1,R2,R3 Y R4 ",R1,R2,R3,R4 
20 LET X=1/R2+1/R3+1/R4 
3O PRINT "LA RESISTENCIA EQUIVALENTE ES " 
35 PRINT 
40 PRINT Ri+1/X3" OHMIOS" 
50 STOP 

EJERCICIO 22 
10 INPUT "GRADOS CENTIGRADOS "5C 
20 PRINT 180*C/100+323" GRADOS FAHRENHEIT" 
30 STOP 

EJERCICIO =23 
10 INPUT "GRADOS FAHRENHEIT "5F 
20 PRINT 100*(F-32)/1803" GRADOS CENTIGRADOS" 
30 STOP 

EJERCICIO =24 
10 INPUT “CUANTAS PTAS PARA CAMBIAR "3P 
20 PRINT P3" PTAS SON "3P/1505" DOLARES" 
30 STOP 

EJERCICIO 25 


10 INPUT "CUANTOS DOLARES VAS A CAMBIAR ":D 
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20 PRINT D;3" DOLARES SON "5Dx*1505" PESETAS" 
30 STOP 


EJERCICIO 29 


SLET A=0 
10 PRINT A 
20 LET A=A+1 
30 IF A<100 THEN GO TO 10 
40. STOP 


EJERCICIO 30 


10 LET N=0 

20 PRINT N,NéN 

30 LET N=N+1 

20 IF Nx<20 THEN GO TO 20 
0 STOP 
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PROGRAMA Pi 


INPUT "escribe el angulo "za 

IF ac0O THEN LET a=a+360 

IF a>=360 THEN LET a=a-360 

IF a>=0 AND a<x360 THEN GO TO 60 
GO TO 20 

PRINT a 

STOP 


PROGRAMA PI 


LET s=0 

LET c=0 

LET n=0 

INPUT "dame un numero "3x 
LET n=n+1 

LET s=s+x 

LET C=c+x%x 

IF n=10 THEN GO TO 100 
GO TO 40 

PRINT "media "35/10 
PRINT "media de cuadrados "5c/10 
STOP 


PROGRAMA —P= 


INPUT "escribe los tres lados "ja,b,c 

LET p=ta+b+c)/2 

LET m=p*(p-a)*(p-b)*(p-Cc) 

IF mí=0 THEN 60 TO 70 

PRINT "el area es "3m”.5 

STOP 

PRINT a3" “"3b3" "3c53” no forman un triangulo” 
STOP 


PROGRAMA P4 
LET s=0 
LET n=1 


LET s=s+n 
LET n=n+1 
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50 


IF n>100 THEN PRINT s: STOP 


60 60 TO 30 
PROGRAMA PS 
10 LET s=0: LET m=0 
20 INPUT "escribe n y x "3n,x 
3O LET m=m+1 
20 LET s=s+tmX*x 
50 IF mín THEN GO TO 30 
60 PRINT "la suma es ",s 
7O STOP 
PROGRAMA POS 
10 INPUT "valor de a "a 
20 INPUT "valor de b  "3b 
30 INPUT "valor de cc "3c 
M0 LET d=bx*b-4x*a%*c 
50 IF d<0 THEN PRINT "no hay raices reales": STOP 
60 IF d=0 THEN PRINT "hay una raiz doble ",-b/(2x* 
a): STOP 
70 PRINT "las dos raices son" 
80 PRINT  (—b+d7.5)/(2x*a), (—b-d7.5)/ (2*a) 
90 STOP 
PROGRAMA PY 
10 INPUT "escribe los dos numeros ";ja,b 
20 IF a>b THEN LET a=a-b 
30 IF ba THEN LET b=b-—a 
20 IF a<>b THEN 60 TO 20 
30 IF a=1 THEN PRINT "primos entre si": STOP 
60 PRINT "el mcd es "3a 
7O STOP 
PROGRAMA PS 
10 INPUT "escribe los tres numeros "3a,b,c 
20 IF a“=b THEN GO TO 40 
30 LET x=az LET a=b: LET b=x> _ 
240 IF b<=c THEN GO TO 70 


10 


LET x=b: LET b=c: LET c=x 
G0 TO 20 : 
PRINT a3” <= "3b3" <= "3c 
STOP 


PROGRAMA POS 


LET n=0 

PRINT n, 

LET n=n+2: LET p=n 

IF n>=100 THEN STOP 

IF p>=3 THEN LET p=p-3: GO TO 50 
IF p=0 THEN GO TO 30 

GO TO 20 


PROGRAMA Pi10 


LET n=0 

INPUT "el numero es  —"3x 
LET n=n+1 

IF n=10 THEN STOP 

PRINT x3" * "3n3" = "53x%n 
GO TO 30 


PROGRAMA Paid 


INPUT "escribe los grados, minutos y segundos 
primer angulo "ja,b,c 
INPUT "escribe los grados, minutos y segundos 


segundo angulo "3d,e,+ 

IF c+f>5=60 THEN LET s=c++-60: LET e=e+i 

IF c+f<60 THEN LET s=c++ 

IF b+e>=60 THEN LET m=b+e-60: LET d=d+1 

IF b+e<60 THEN LET m=b+e 

PRINT a+d3" grados ",m3" minutos”",s;" segundos” 
STOP 


PROGRAMA FPi-22 


INPUT "escribe el valor de cada uno de los tres 


lados "ja,b,c 


20 
30 


IF a=b AND a=c THEN PRINT "equilatero”: STOP 
IF a=b OR a=c OR b=c THEN PRINT "isosceles":z S 
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TOP 
40 
50 


10 


PRINT "escaleno" 
STOP 


PROGRAMA Pi= 


INPUT "escribe el valor de dos angulos, en grad 
os "ja,b 


"3as,b 


"acutangu 


ZO LET c=180-a-b 
3O IF a>90 OR b>90 OR c>90 THEN PRINT "obtusangul 
o": STOP | 
40 IF a<x<90 AND b<90 AND c<90 THEN PRINT 
lo": STOP 
50 PRINT "rectangulo" 
60 STOP 
PROGRAMA PI 
10 LET a=0 
20 LET f=1 
30 INPUT "escribe el numero "3n 
40 LET a=a+1 
50 IF a>m THEN PRINT 4: STOP 
60 LET f=f*X%a 
70 GO TO 40 
PROGRAMA PIS 
10 INPUT "escribe los dos numeros 
20 LET i=12 LET s=0 
3O LET i=i+1 
20 LET s=s+a 
50 IF i<=b THEN GO TO 30 
60 PRINT az" * "3b3" = "3s 
70 STOP 
PROGRAMA P1S 
10 INPUT "cual es el dividendo "za 
ZO INPUT "cual es el divisor "3b 
3O- IF b>a THEN GO TO 10 
35 PRINT as" = "3b3"x"3 
40 LET n=0 


30 
60 
7O 


10 
20 
30 
40 
50 
60 
70 
80 


IF a>»=b THEN LET a=a-b: 
PRINT n3" + "za 
STOP 


PROGRAMA Pai 


LET s=0 

LET n=0 

LET n=n+1 

IF n>64 THEN 60 TO 70 
LET s=5+2” (n-1) 

GO TO 30 


LET n=n+1: 


PRINT "granos solicitados",s 


STOP 


PROGRAMA PI1I3 


S>PRINT "tiempo","altura" 


10 
20 
30 
40 
30 
60 


10 
20 
30 
31 
32 
33 
34 


— 
pd] 


36 
37 
39 
40 
530 
60 
7O 
80 
90 


LET t=0 

LET s=10-9. 81x*txt/2 
IF sí<0 THEN STOP 
PRINT t,s 

LET t=t+.1 

60 TO 20 


PROGRAMA P139 


LET n=0 

INPUT "costo inicial "3c 
INPUT "vida util "3v 

LET s=0 

LET m=1 

LET s=s+tm 

LET m=m+1 

IF m>v THEN 60 TO 37 

GO TO 33 


LET di=c/s 

PRINT "ans”5” depredacion”;" 
LET n=n+1 

LET d=d1*(v—n+1) 

LET c=c-d 

PRINT n3" "5d,c 


IF nív THEN 60 TO 40 
STOP 


GO TO 50 


valor actual” 
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PROGRAMA —P20O 


10 INPUT "cual es el numero "in 

20 INPUT "error admitido "e 

30 LET a=1 

20 LET b=a:z LET a=1f(atn/a)/2 

SO IF a>=b AND a-b<e THEN 60 TO 80 
60 IF a<=b AND b-at<e THEN GO TO 80 
7O GO TO 40 

80 PRINT "raiz cuadrada de "3n 

90 PRINT a 

100 STOP 


PROGRAMA P21 


10 INPUT "primer numero "za 

20 INPUT "segundo numero "3z 

23 1F a>z THEN 650 TO 30 

26 LET m=a: LET a=z:z LET z=m 

30 LET n=2 

40 INPUT "siguiente numero "3b 
530 LET n=n+1 i 
60 IF n>20 THEN 60 TO 100 

70 1F a>b AND b>z THEN GO TO 40 
80 IF ab THEN LET a=b 

8S IF biz THEN LET z=b 

90 GO TO 40 

100 PRINT "el mayor es "ja 

110 PRINT "el menor es "3z 

120 STOP 


PROGRAMA PI22 


10 LET s=0 

20 FOR x=100 TO 998 STEP 2 
30 LET s=st+tx".5 

40 NEXT. » 

30 PRINT s 

60 STOP 
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PROGRAMA PIS 


SPRINT "x","seno de x":PRINT 
10 FOR x=0 TO PI/2 STEP S*PI/180 
20 PRINT x*180/PI,SIN x» 

30 NEXT x 
40 STOP 


PROGRAMA PI24 


10 FOR x=112 TO 1000 STEP 14 
20 PRINT x3" "5 

30 NEXT xx 

40 STOP 


PROGRAMA — PI>3 


10 LET S=0 

20 FOR I=1i TO 30 
30 LET F=1 

40 FOR J=1 TO 1 
50 LET F=F*J 

60 NEXT J 

7O LET S=S+1/F 
80 NEXT 1 

90 PRINT S 

100 STOP 


PROGRAMA ”—PI2S 


10 INPUT "NUMERADOR "35M 

20 INPUT "DENOMINADOR "5N 
30 IF N>M-N THEN LET N=M—-N 
40 IF N=0 THEN PRINT "ES 1": STOP 
50 LET P=1 

60 FOR I=M TO M-N+i STEP -—1 
7O LET P=P+*I 

80 NEXT 1 

90 LET Q=1 

100 FOR V=N TO 1 STEP -1 

110 LET 0O=0xV 

120 NEXT Y 
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130 
140 


PRINT M3" SOBRE "5N3" = "5P/Q 
STOP 


PROGRAMA PI2Y 


S>REM EN LA LINEA 30 SE TOMA COMO LIMITE DE LA 
VARIABLE DE CONTROL 17, YA QUE LLEGA UN MOMEN 
TO EN QUE EL LADO ES TAN MINIMO QUE EL ORDENADOR LO 
CONSIDERA NULO 


10 
20 
3Q 
40 
50 
60 
7Q 
80 


100 
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PRINT "NUMERO DE LADOS","VALOR DE PI” 
LET L=2",.5: PRINT 4,4x*L/2 

FOR J=2 TO 17 

LET L=(2-1(4-LeL)”(1/2))*.5 

LET P=Lx* (27 (J+1)) 

PRINT 27 (J+1),P/2 

NEXT J 

STOP 


PROGRAMA FIS 


FOR J=1 TO 17 
PRINT "*"5 
NEXT J 

PRINT 

FOR J=1 TO 18 
PRINT E »o 3" 


NEXT 3 

FOR J=1 TO 17 
PRINT "*"3 
NEXT J 

STOP 


PROGRAMA —P29 


INPUT "HASTA QUE FILA DESEA "53N 
LET A=0 

FOR I=1 TO N 

FOR J=1 TO 1 

LET A=A+1 

PRINT A3" "5 

NEXT J 

PRINT 

NEXT 1 

STOP 


10 
20 
30 


PROGRAMA P=30 


FOR A=1 TO 9 

FOR B=0 TO 9 

FOR C=0 TO 9 

IF 22x* (A+B+C)=100*A+10*B+C THEN PRINT A53B3C 
NEXT € 

NEXT B 

NEXT A 

STOP 


PROGRAMA P=31 


FOR A=1 TO 8 
FOR B=1 TO 6 


IF 24*A+35*B=249 THEN PRINT 2493" = "53243"x*";A 
"5353"x*"3B:= STOP 

NEXT B 

NEXT A 

PROGRAMA P=32 

LET S=0 

INPUT "QUE HORA ES "3X 

INPUT "SI ES DE LA MANANA PULSA 1, SI ES DE 


LA TARDE PULSA 2 "3A 


FOR I=X TO 12 

LET S=S+1 

NEXT 1 

REM SUMAR LOS TOQUES DE LAS MEDIAS 
LET S=S+ (12—X) 

IF A=2 THEN GO TO 140 

FOR I=1 TO 12 

LET S=S+1 

NEXT 1 

LET S=S+12 

PRINT "SE HAN EFECTUADO "555" TOQUES": STOP 


PROGRAMA —P=3=3 


S>REM Hemos utilizado las lineas 50 y 55 en lugar 


de 


50 IF n=m THEN PRINT n como pareceria logico, 
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ya que z,aunque al elevar un numero entero al cubo en 
pantalla aparece otro numero entero, interiormente 
no lo considera como tal,sino un valor muy aproximad 
o 

10 FOR X=1 TO 9 

20 FOR Y=0 TO 9 

30 FOR Z=0 TO 9 

240 LET N=100*X+10*Y+Z2 LET M=X"3+Y"34+Z"3 

50 IF N>M AND N-M<.00001 THEN PRINT N 

599 IF N<=M AND M-N<.00001 THEN PRINT N 

60 NEXT Z 

7O NEXT Y 

80 NEXT X 

90 STOP 


PROGRAMA P34 


S>REM En el apartado ¡illa linea 50 sera:LET F 
=SIN X en el apartado ii)la linea 50 sera: LE 


10 INPUT "EXTREMO INFERIOR "5A 

20 INPUT "EXTREMO SUPERIOR "3B 

30 LET P=(B-A)/500: LET SF=0 

40 FOR X=A+P TO B STEP P 

60 LET SF=SF+F 

7O NEXT X 

380 PRINT "VALOR NUMERICO APROXIMADO ES ",Px*SF 
90 STOP 


PROGRAMA PS 


10 LET P=1 

20 FOR X=1 TO 15 

30 INPUT "ESCRIBE UN NUMERO "5N 
40 LET P=P%N 

50 PRINT TAB 45N5TAB 195P 

60 NEXT X 

7O PRINT AT 19,155"FIN" 

80 STOP 


PROGRAMA ”—P36S 


10 FOR J=0 TO 7 
20 FOR K=0 TO 20 


60 


PRINT AT k,4x*J3"x*" 
NEXT k 

NEXT J 

FOR J=0 TO 5 

FOR K=0 TO 28 
PRINT AT 4x%J,k3"x*" 
NEXT K 

NEXT J 

STOP 


PROGRAMA PFS3Y 


INPUT "ESCRIBE EL LADO "3N 

FOR J=0 TO N-1 

PRINT AT 0,J3"x": PRINT AT N-1,J3"x%" 

NEXT J 

FOR J=1 TO N-2 

PRINT AT J3,053"x": PRINT AT J3,N-13"x%": PRINT AT 


JY,J53"*": PRINT AT J,N-1-J3"x" 


7O 
80 


10 
20 
30 


NEXT J 
STOP 


PROGRAMA PI38S 


FOR X=1 TO 200 STEP 20 
PRINT TAB (16-X7%0.5)3"x*%"3TAB (16+X"0.5)3"x%"2 PR 


NEXT X 

INPUT "PULSA UNA TECLA "5A$: CLS 

FOR X=201 TO 1 STEP -20 

PRINT TAB (16-X?*0.5)3"x"5TAB_ (16+X70.5)3"*": PR 


NEXT X 
STOP 
PROGRAMA PIS 
DEF FN síx)=14*SIN x2z DEF FN c1x)=14*C0S > 


FOR x=0 TO 2x*PI STEP 2x*PI1/21 
IF FN síx)>FN c(x) LEN PRINT TAB (FN c1tx)+16) 


5"c"5TAB (FN six)+16)3"s 


40 


IF FN síx)<FN c1x) Mn PRINT TAB (FN s(x)+16) 


5"s"53TAB (FN ctx)+16)3"c 


30 


NEXT x 
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60 STOP 


PROGRAMA. P4O 


S>REM En la linea 50 se consideran las areas igua 
les cuando su diferencia es menor que la cincuentava 
parte del radio 

10 INPUT "CUAL ES EL RADIO "3R 

20 FOR D=2*R TO O STEP -—R/500 

30 LET M=(R*xXR-D*D/4)70.5: LET A2=2*(RRXATN (2*M/D 
) —MAD/2) 

40 LET Al=PI*R*R-A2 

SO IF ABS (Al-A2)<=R/S5O0 THEN GO TO 70 

60 NEXT D 

70 PRINT "DISTANCIA ENTRE CENTROS "3D STOP 


PROGRAMA FPF4I 


10 LET N=4 

20 LET L=2x*SIN (PI/N)=s LET P=N*L: LET A=(N-1)x*SIN 
(P1I/(N-1)):2 LET B=P/2 

30 1F A=B THEN 60 TO 50 

40 LET N=N+1: GO TO 20 

30 PRINT "FI ES APROXIMADAMENTE "35A 

60 PRINT "EL POLIGONO TIENE "53N5" LADOS": STOP 


PROGRAMA PAZ 


60 CLS 

7O INPUT "LIMITE INFERIOR DEL INTERVALO "3A 

80 INPUT "LIMITE SUPERIOR DEL INTERVALO "5B 

90 INPUT "INCREMENTO "51 

100 PRINT "  X","  Y(X)": PRINT 

110 FOR X=A TO B STEP 1 

120 PRINT X,FN Y(X) 

130 NEXT X 

140 INPUT "SI DESEA ESTUDIAR ESTA MISMA FUNCION PUL 
SE P "354% 

150 IF A$="P" THEN GO TO 60: STOP 


PROGRAMA — PAIS 


60 CLS 
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7O 
80 
90 
100 
110 
120 
130 
140 
SE P 
150 
160 


10 


INPUT "EXTREMO INFERIOR "5A 

INPUT "EXTREMO SUPERIOR "5B 

LET P=(B-A)/500: LET S=0 

FOR X=A TO B STEP P 

LET S=S+FN Y(X) 

NEXT x 

PRINT "VALOR APROXIMADO DE LA INTEGRAL", P*S 
INPUT "SI DESEA ESTUDIAR ESTA MISMA FUNCION PUL 
"sas 

IF A$="P" THEN GO TO 60 

STOP 


PROGRAMA Paa 


PRINT "INDICA PRIMERO LAS COORDENADAS DEL PUNT 


O MAS ALTO EN PANTALLA. A IGUALDAD DE FILA, INTRODUCE 
E PRIMERO LAS DEL PUNTO SITUADO MAS A LA IZQUIER 


INPUT "FILA Y COLUMNA DEL PRIMER PUNTO "sA,B 
INPUT "FILA Y COLUMNA DEL SEGUNDO PUNTO "5P,0Qs 


IF P<A THEN GO TO 10 

IF P=A AND B>=Q THEN GO TO 10 

FOR I=1 TO A-1 

PRINT 

NEXT 1 

IF P=A AND B<Q THEN GO TO 200 

PRINT TAB (B)53"0": DEF FN Y(X)=(X-A)*(0—-B) / (P-A 


FOR X=A+1 TO P-1 

PRINT TAB (FN.YO0)5 "e" 
NEXT X 

PRINT TAB Q5"0":z STOP 
PRINT TAB B5"0";5 

FOR M=B+1 TO 0-1 

PRINT "+*"5 

NEXT M 

PRINT TAB Q5"0":z STOP 


PROGRAMA PAS 


CLS 

INPUT "EXTREMO INFERIOR DEL INTERVALO "35A 
INPUT "EXTREMO SUPERIOR DEL INTERVALO "5B 
INPUT "ERROR ADMITIDO "5E 


159 


100 
110 
120 
130 
140 
150 
160 
170 
180 


IF SGN (FN Y(A))=SGN (FN Y(B)) THEN GO TO 70 
LET M=(B+A) /2 

IF SGN (FN Y(A))=SGN (FN Y(M)) THEN LET A=M 

IF SGN (FN Y(B))=SGN (FN Y(M)) THEN LET B=M 

IF FN Y(M)=0 THEN GO TO 170 

IF B-A<=E THEN GO TO 170 

GO TO 110 

PRINT "LA RAIZ ES "3 (B+A)/2 

INPUT "SI DESEA ESTUDIAR LA MISMA FUNCION PULSE 


Po"sAas 


190 
200 


10 
20 
30 
NT 
40 
30 
60 
70 
80 


10 
20 
30 
NT 
40 
Xx) 
30 
60 
xy 
7O 
80 


10 
20 
30 
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IF A$="P" THEN 60 TO 60 
STOP 


PROGRAMA — PIS 


LET X=1: LET N=0 
INPUT "ERROR ADMITIDO ";5E 
PRINT "NUMERO INTERACIONES"5" VALOR DE X":z PRI 


LET X=(9-2%€X*X)" (1/7): LET N=N+1 

PRINT N,X 

LET Z=(9-2eX*X)7 (1/7) 

IF ABS (X-Z)>E THEN GO TO 40 

CLS 2 PRINT "LA RAIZ ES "3 (X+Z)/2: STOP 


PROGRAMA PAZ 
LET X=3xXx*P1/2: LET N=0 
INPUT "ERROR ADMITIDO ";E 
PRINT "NUMERO INTERACIONES "3" VALOR DE X": PRI 
LET X=X-((X"3)%COS X-7) / (IEXEXHECOS X-(X"3)%SIN 


LET N=N+1:z FRINT N,X 
LET Z=X-((X"3)%COS X-7)/ C34XXHCOS X-(X"3)%*SIN 


IF ABS (X-Z)>E THEN GO TO 40 

CLS : PRINT "LA RAIZ ES "3 (X+Z)/23 STOP 
PROGRAMMA PAS 

INPUT "ESCRIBE EL NUMERO "3N 


LET X=1 
IF INT (N/(10%X))=0 THEN PRINT "TIENE "3X5" CI 


FRAS"= STOP 
40 LET X=X+1: GO TO 30 


PROGRAMA PAS? 


10 INPUT "TECLEE i SI DESEA PASAR DE RADIANES A GR 
ADOS, TECLEE 2 SI ES AL CONTRARIO "5C 
20 IF C=1 THEN GO TO 100 
30 INPUT "CUANTOS GRADOS "3X 
40 INPUT "CUANTOS MINUTOS "35Y 
50 INPUT "CUANTOS SEGUNDOS "3Z 
60 LET M=(X+Y/60+7Z/3600)*P1/180 
7O PRINT "SON "5M5" RADIANES": STOP 
100 INPUT "CUANTOS RADIANES "3N 
110 LET P=180*N/P1: LET G=INT P: LET M=INT ((P-G)x*6 
0): LET S=((P-G) *60-—M) *60 
120 PRINT 63" GRADOS "5M5” MINUTOS "353" SEGUNDOS” : 
STOP 


PROGRAMA — PSO 


10 INPUT "TECLEE 1 SI DESEA PASAR DE METROS A YARD 
AS, TECLEE 2 SI ES AL CONTRARIO "53€ 

20 1F C=1 THEN (GO TO 100 

30 INPUT "CUANTAS YARDAS "5X 

40 INPUT "CUANTOS PIES "3Y 

50 INPUT "CUANTAS PULGADAS "3Z 

60 LET M=(X+Y/3+Z/36)*.9144 

7O PRINT "SON "5M5" METROS": STOP 

100 INPUT "CUANTOS METROS "3N 

110 LET P=N/.9144: LET Y=INT P: LET R=(P-Y)x*3:2 LET 
PI=INT R:z LET PU=(R-PI)*12 

120 PRINT Y3" YARDAS "5P153" PIES "3PU5" PULGADAS”: 
STOP 


PROGRAMA PSi 


10 FOR X=7 TO 1000 STEP 7 

20 IF INT ((X-1)/3)=(X-1)/3 AND INT ((X-1)/4)=(X-1 
)/4 AND INT ((X-1)/5)=1(X-1)/5 AND INT ((X-1)/6)=(X-1 
3/6 AND INT ((X-1)/9)=(X-1)/9 THEN GO TO 40 

30 NEXT X 

40 PRINT "TIENE "53X3" OVEJAS”: STOP 
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PROGRAMA PS2 


10 INPUT "NUMERO LIMITE ":N 

20 PRINT "1-2-"3 

30 FOR X=3 TO N-1 

40 FOR I=2 TO SOR (X) 

50 IF INT (X/1)=X/I THEN GO TO 80 
60 NEXT 1 

7O PRINT X3"-"5 

80 NEXT X 

90 STOP 


PROGRAMA — POS 


10 LET S=0 

20 FOR X=1 TO SOR (6300) 

30 IF INT (6300 (X*X) )=6300/(X*X) THEN PRINT Xx*X, 
LET S=S+Xx*X 

40 NEXT X 

50 PRINT AT 15,153"LA SUMA DE TODOS LOS DIVISORES E 
"ss y 

60 STOP 


PROGRAMA — PO 


S>REM Misma nota que en el programa P33 
10 FOR A=4 TO 9 
20 FOR B=4 TO 9 
30 FOR C=4 TO 9 
40 FOR D=4 TO 9 
50 IF A+B+C+D<>31 THEN GO TO 80 
60 LET X=A+10*B+100*C+1000*D: LET Y=SQR X- 
7O0 IF ABS (Y-INT Y)<.001 THEN PRINT X 


80 NEXT D 
90 NEXT C 
100 NEXT E 
110 NEXT A 
120 STOP 


PROGRAMMA POS 


10 INPUT "EL NUMERO ES "5N 
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20 
30 
40 
30 
60 
7O 
80 
90 


10 
15 
20 
30 
40 
50 


60 


10 
20 
30 
40 
30 
60 
7O 
30 
90 
100 
110 


pa 
10 
20 
30 
40 
30 
60 
7O 
80 


PRINT "LOS FACTORES PRIMOS DE "3N," SON: " 
FOR 1=2 TO SQR N 

IF INT (N/I)=N/1I THEN GO TO 70 

NEXT 1 | 

PRINT Nz STOP 

PRINT 15","5 

IF N/I=1 THEN STOP 

LET N=N/1I: GO TO 30 


PROGRAMA PS 


LET N=2 

LEFT P=1 

FOR X=1 TO SOR N 

IF INT (N/X)=N/X THEN LET P=P%*N 
NEXT X 

IF P=331776 THEN PRINT Nz STOP 
LET N=N+2: 60 TO 15 


PROGRAMA PS 


FOR X=1 TO 25 

FOR Y=1 TO 25 

LET A=12*X: LET B=12%*Y 

IF AXA-BxB<>6480 THEN GOD TO 90 
LET R=A-B*INT (A/B) 

IF R=0 THEN G0 TO 80 

LET A=B: LET B=R:z GO TO 50 

IF B=12 THEN —PRINT 12x%X3","512xY 
NEXT Y 

NEXT X 

STOP 


AS 


PROGRAMA —PS83 


>REM Misma nota que en el programa P33 

FOR A=1 TO 9 

FOR B=0 TO 9 

FOR C=0 TO 9 

LET X=A+10x*B+100+*C+1000*C+10000*B+100000*A 


IF ABS (INT (SOR X)-SQR X)<.001 THEN PRINT X 


NEXT C 
NEXT B 
NEXT A 
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90 


STOP 


PROGRAMA '— PS 


LET M=8128 

LET S=1 

FOR N=2 TO SOR M 

IF INT (M/N)=M/N THEN LET S=S+N+M/N 

NEXT N 

PRINT "LA SUMA DE TODOS LOS DIVISORES DE "3M3" 
“ss ! 

IF M=S THEN PRINT M3" PERFECTO": GO TO 90 
PRINT M5" NO ES PERFECTO" 

IF M=8128 THEN LET M=130816: GO TO 20 
STOP 


PROGRAaAmAa Poo 


(INPUT "ESCRIBE LOS DOS NUMEROS "5A,B 


REM SUMA DELOS DIVISORES DE A 

LET SA=1 

FOR N=2 TO SOR A 

IF INT (A/N)=A/N THEN LET SA=SA+N+A/N 
NEXT N 

REM SUMA DE LOS DIVISORES DE B 

LET SB=1 

FOR N=2 TO SQR B 

IF INT (B/N)=B/N THEN LET SB=SB+N+B/N 
NEXT N 

IF A=SB AND B=SA THEN PRINT A5","3B5" SON NUME 


ROS AMIGOS": STOP 


130 


10 
20 


PRINT A3","5B3" NO SON NUMEROS AMIGOS": STOP 


PROGRAMA PO01l1 


INPUT "ANGULO EN RADIANES *”53X 
INPUT "CUANTOS TERMINOS DEL DESARROLLO CONSIDER 


IF X>2*PI THEN LET X=X-2*P1: GO TO 23 
IF X<O0 THEN LET X=X+2*P1: GO TO 25 
LET S=0 

FOR J=1 TON 

LET F=1 

FOR K=1 TO 2*J-1 


7O LET F=FxXK 

380 NEXT K 

90 IF INT (J/2)=J/2 THEN LET S=S-(X” (2*J3-1))/F: 6 
O TO 110 

100 LET S=S+1(X” (2*J-1)3)/F 

110 NEXT J 

120 PRINT "SEN "3X3" = "35: STOP 


PROGRAMA —PÓ6SÓ2 


10 LET A=INT (7O0000*RND) 

20 PRINT "EL PRIMER PREMIO ES "3A 

30 LET B=INT (70000*RND) 

40 1F A=B THEN 60 TO 30 

50 PRINT "EL SEGUNDO PREMIO ES "3B 

60 LET C=INT (70000*RND) 

7O IF C=A OR C=B THEN 60 TO 60 

80 PRINT "EL TERCER PREMIO ES "5C:z STOP 


PROGRAMA —PO= 


10 LET X=INT (100%RND): LET Y=INT (100*RND) 

20 PRINT X5" + "3Y3" = "3 

30 INPUT "CUAL ES SU VALOR "5Zz2 PRINT Z, 

40 IF Z=X+Y THEN PRINT "CORRECTO": PRINT : GO TO 


50 PRINT "INCORRECTO": GO TO 20 

60 PRINT X53" e "3Y3" = "5 

70 INPUT "CUAL ES SU VALOR "3Z: PRINT Z, 
80 IF Z=Xx*Y THEN PRINT "CORRECTO": STOP 
90 PRINT "INCORRECTO": GO TO 60 


PROGRAMA PO 


10 LET N=0:2 LET X=INT (100*RND)+1 

20 IF N=6 THEN 60 TO 80 

30 INPUT "QUE NUMERO ELIGES "3Y 

40 LET N=N+1 

SÓ IF X>Y THEN PRINT Y5" ES MENOR": GO TO 20 

60 IF X<Y THEN PRINT Y3" ES MAYOR": GO TO 20 

7O PRINT AT 13,10;3"EL NUMERO ES "5Xz PRINT AT 15,1 
O5"ACERTO EN "5N5" JUGADAS": STOP 

80 PRINT AT 15,10;5"FALLO. El NUMERO ES "3X: STOP 
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mm 


PROGRAMA POS>S 


LET N=0: LET C=0: LET M=0 

INPUT "NUMERO DE CARAS CONSECUTIVAS "5P 

LET N=N+1: LET A=INT (2*RND) 

IF A=1 THEN 60 TO 60 

PRINT *Z"53: LET M=0: GO TO 30 

PRINT "C"5: LET C=C+1: LET M=M+1 

IF M<>P THEN GOD TO 30 

PRINT : PRINT "SE HAN LANZADO "353N5" MONEDAS": P 
"HAN SALIDO "3505" CARAS, Y "53N-C53" CRUCES"» STO 


PROGRAMA ”— POS 


LET as$=" mmm MANTAMMM 
mm mm" 

LET X=19%*RND: LET Y=23%RND 

PRINT AT X,Y3A$ 

FOR N=0 TO 100 

NEXT N 

CLS 

GO TO 20 


PROGRAMA —FSOY 


LET S=0 

FOR N=1 TO 3000 

LET X=RND: LET Y=RND 

IF X*X+Yx*Y<=1 THEN LET S=5+1 

NEXT N 

PRINT "EL VALOR APROXIMADO DE PI ES *”,4*5/3000 
STOP 


PROGRAMA POS 


LET N=0 
INPUT "LANZA LOS DADOS PULSANDO UNA TECLA "5 


LET N=N+1: LET P=INT (G6*RND)+1: LET Q=INT (G%RN 


PRINT "PRIMER DADO "3P,"SEGUNDO DADO "5Q: PRINT 


"SUMA DE LOS DOS DADOS "5P+0: PRINT 
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50 IF N=1 THEN LET S=P+Q0: GO TO 90 

60 IF P+0=7 THEN PRINT "HAS PERDIDO, TRAS "3N3" L 
ANZAMIENTOS": STOP 

70 IF P+0=S THEN PRINT "HAS GANADO, TRAS "53N3" LA 
NZAMIENTOS": STOP 

80 60 TO 20 

90 IF S=7 OR S=11 THEN PRINT AT 10,125" HAS GANADO 
" STOP 

100 1F S=2 OR S=3 OR S=12 THEN PRINT AT 10,123 "HAS 
PERDIDO": STOP 

110 GO TO 20 


PROGRAMA PO 


10 INPUT "ESCRIBE EL NUMERO "5N 

20 REM CALCULO DE LAS CIFRAS DE N 

30 LET X=1 

40 IF INT (N/(107X))=0 THEN LET C=X:z GO TO 60 
50 LET X=X+1: GO TO 40 

60 REM IMPRIMIR ALEATORIAMENTE 

7O FOR X=1 TO 22 

80 PRINT TAB ((31—C)%RND)5N 

90 NEXT X 

100 STOP 


PROGRAMA PO 


10 INPUT "ESCRIBIR LOS 3 NUMEROS "5A$,B$,C+% 
Z0 LET X=VAL AS+VAL BS$+VAL C% 
30 PRINT X/32 STOP 


PROGRAMA Pi 


10 INPUT "ESCRIBE UNA PALABRA "5A% 
20 PRINT A$(2 TO )+4$(1)+"0" 
30 STOP 


PROGRAMA P?72 


10 INPUT "ESCRIBIR UNA PALABRA "5A% 
20 LET L=LEN As 

30 FOR J=1 TO L 

40 PRINT A$(L-J+1)5 
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50 NEXT J 


60 


10 


_—20 LET BS$=A$(LEN At-1 TO ) 
THEN PRINT A$5" 


STOP 
PROGRAMA PY= 
INPUT "ESCRIBIR EL VERBO "5A$ 


-30 IF B$="AR" 

N"z STOP 
30 IF B$="ER" 

N"z STOP 
SO PRINT A$;3" 

PROGRAMA 

10 INPUT "ESCRIBE LA 
20 PRINT A%: PRINT 
30 FOR I=1 TO LEN As 


40 
30 
60 
7O 


IF AS(I)=" ”» 
PRINT A$(1)35 
NEXT 1 

STOP 


THEN 


PROGRAMA 


S>REM este programa 
mayusculas 


10 


INPUT "ESCRIBE LA 
LET A=0: LET E=0: 


FOR J=1 TO LEN A+ 
IF A$(J)="A" THEN 
IF A$(J)="E" THEN 
IF A$(J)="1” THEN 
IF A$(J)="0" THEN 
IF A$(J)="U" THEN 
NEXT J 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


"A 
"E 
“1 
"0 
“1 


APARECE 
APARECE 
APARECE 
APARECE 
APARECE 


THEN PRINT AS$;5”" 


TERCERA CONJUGACION" : 


PTS 


PRIMERA CONJUGACIO 


SEGUNDA CONJUGACIO 


STOP 


exige introducir la frase con 


FRASE 
LET I=0: 


LET 
LET 
LET 
LET 
LET 


"sAs s 
"SsE5 .” 
. 5 1 5 $» 
"505 . 
uj" 


"5AS: 


A=A+1 
E=E+1 
1=1+1 
O=0+1 
U=U+1 


VECES" 
VECES" 
VECES” 
VECES" 
VECES": 


LET 


PRINT AS 


O=0: LET U=-02* PR 


STOP 


PROGRAMA PS 


10 INPUT "ESCRIBE LA FRASE "5%: PRINT As$: 

20 LET L=LEN At: LET V=0: LET B=0 

30 FOR I=1 TO L 

40 IF A$(1)="A" OR A$(1)="a" OR A$(1)="E" 
="e"” OR A$(1)="I" OR A$(1)="i" OR A$(1)="0" 


PRINT 


OR A$(1) 
OR A$(1) 


="0" OR A$(1)="U" OR A$(1)="u" THEN LET V=V+1 


50 IF A$(1)=" " THEN LET B=B+1 
60 NEXT 1 
7O LET EC=L-V-B 


30 PRINT V5" VOCALES": PRINT C5" CONSONANTES" 


90 PRINT B3" ESPACIOS EN BLANCO": STOP 


PROGRAMA PY 


S REM Misma nota que en P.75 
10 INPUT "ESCRIBE EL VERBO "3A% 
20 LET X=LEN As$-1 
30 PRINT A$( TO X-1)+"0" 

40 PRINT A$( TO X)+"S”" 

50 PRINT A$( TO X) 

60 PRINT A$t(t TO X)+"MOS" 

7O PRINT A$( TO X)+"IS" 

80 PRINT A$( TO X)+"N"2* STOP 


PROGRAMA F78 


10 INPUT "ESCRIBE LA FRASE "5% 

20 LET N=0 

30 INPUT "CARACTER A BUSCAR "5Bs% 

40 LET L=LEN At: PRINT A$: PRINT 

30 FOR I=1 TO L 

60 IF A$(1)=B$% THEN PRINT B%;5: LET N=N+1: 
0 

70 PRINT "-—"; 

80 NEXT 1 


90 PRINT : PRINT : PRINT "EL CARACTER "5B*$ 


ARECIDO" 
100 PRINT N5" VECES": STOP 


PROGRAMA — PI 


10 INPUT "ESCRIBE LA FRASE ";5A%$ 


60 TO 8 


" HA AP 
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20 LET L=LEN At: LET B=0 

30 FOR I=i TO L 

40 IF A$(1)=" " THEN LET B=B+1 

50 NEXT 1 

60 PRINT "LA FRASE ": PRINT At: PRINT "TIENE "5L-B 
5" CARACTERES": STOP 


PROGRAMA FS30O 


10 INPUT "ESCRIBE LA FRASE "5A$ 
20 FOR I=1 TO LEN At-1 

30 PRINT A$(1)353"-"> 

40 NEXT 1 

50 PRINT AS$(LEN A$): STOP 


PROGRAMA FS3S1 


10 INPUT "ESCRIBE LA FRASE "3A% 
20 INPUT "DAME LA CLAVE "3N 

30 FOR J=i TO LEN As$ 

40 PRINT CHR$ (CODE A$(J)+N)5 
50 NEXT J 

60 STOP 


PROGRAMA PS52 


10 INPUT "ESCRIBE LA PALABRA "5A$ 

ZO FOR I=1 TO LEN AS 

30 IF A$(1)<>"0" THEN PRINT A$(1)35: GO TO SO 
40 PRINT CHR%$ (65+235%RND) 5 

530 NEXT 1 

60 PRINT : GO TO 20 


PROGRAMA F=3= 


10 INPUT "ESCRIBE UNA PALABRA "5A% 

20 FOR I=1 TO LEN A$ 

30 IF A$(1)="B" OR A$(1)="b" THEN PRINT A$: STOP 
40 NEXT 1 

50 PRINT "NO CONTIENE LA LETRA B":z STOP 
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PROGRAMA — P824 


10 INPUT "NUMERO DEL MES "3N 
20 LET A$="ENERO FEBRERO 
MAYO JUNIO JULIO 
CTUBRE NOVIEMBRE DICIEMBRE " 
30 PRINT A$(10x*N-9 TO 10*N) 
40 STOP 


PROGRAMA PSSS 


MARZO 
AGOSTO 


10 INPUT "ESCRIBIR LA PALABRA "5A%$ 


20 FOR I=1 TO 4 

30 FOR J=1 TO 4 

40 IF J=1 THEN GO TO 100 

SO FOR K=1 TO 4 

60 IF kK=I OR K=J THEN GO TO 
7O LET L=10-(1+J+K) 


90 


80 PRINT AS(I)5ASIJI)5ARS(K)5AR(L), 


FO NEXT K 

100 NEXT J 
110 NEXT 1 
120 STOP 


FPFROGRAMA — P36 


10 INPUT "ESCRIBIR LA FRASE "5A$ 


20 FOR I=1 TO LEN A$ 
30 IF A$(I)="A" OR A$(1I)="E" 
="UY" OR A$(1)="a" OR A$(1)="e” 


ABRIL 
SEPT IEMBREO 


OR A$(1)="0" OR A$+$(I) 
OR A$(1)="0" OR A$(1) 


="u"” THEN PRINT *"1"5: GO TO 50 


20 PRINT A$(1)5 
50 NEXT 1 
60 PRINT : GO TO 10 


PROGRAMA — PS 


S>LET S=0 

10 INPUT "DAME UN NUMERO *"5 
1535 PRINT "NUMERO INICIAL "5 
20 LET P=3X%N+3X%N-1+3%N—2 


N 
N 


CcLs 
PRINT 


25 PRINT "NUMERO OBTENIDO "5P:2 PRINT 


El 


LET A$=STR$ P 

FOR k=1 TO LEN A$ 

LET S=S+VAL (A$(K)) 

NEXT K , 

IF Sx<10 THEN 60 TO 130 

PRINT "SUMAS PARCIALES "3S 

LET P=S: LET S=0 

GO TO 30 

PRINT AT 15,123"SUMA FINAL "3S 
60 TO 35 


PROGRAMA —P38s3 


INPUT "NUMERO DE TERMINOS DE LA LISTA "3N 


DIM A(N) 
FOR I=1 TON 


INPUT ("ESCRIBE EL TERMINO NUMERO 


NEXT 1 


LET M=A(1): LET L=1: LET MA=A(1): 


FOR 1=2 TON 


IF ACI)<M THEN LET M=A(1): LET L=1 
IF ACI)>MA THEN LET MA=A(1): LET LU=I1 


NEXT 1 
PRINT "EL MENOR NUMERO ES "3M 


PRINT "Y OCUPA EL LUGAR "5L3 PRINT 


PRINT "EL MAYOR NUMERO ES "35MA 


PRINT "Y OCUPA EL LUGAR "5LU:z STOP 


PROGRAMA ”—PS339 


INPUT "CUANTOS NUMEROS PRIMOS "5N 


DIM AIN) 


LET At1)=1: LET A(2)=2: LET P=33 LET J=2 


FOR k=2 TO SQR FP 

IF INT (P/K)=P/K THEN GO TO 80 
NEXT K 

LET J=J+1: LET A(J)=P 

IF J=N THEN GO TO 100 

LET P=P+1: GO TO 40 

FOR K=1 TO N 

PRINT A(K)3"-"35 

NEXT K 

INPUT "QUE LUGAR DESEA "3J 


PRINT AT 19,053"EL PRIMO NUMERO "535" ES "5A(J)2 


STOP 
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PROGRAMA — PO9O0O 


INPUT "NUMERO DE TERMINOS "35N 

DIM X(N) 

LET S=0 

FOR I=1 TON 

INPUT ("ESCRIBE EN TERMINO "3515"  "353)5X(I1) 
PRINT X(1)5"-"52 LET S=S+X(1) 

NEXT 1 


LET X=S/N: PRINT AT 10,15"MEDIA ARITMETICA "5X 


LET D=0 

FOR I=1 TON 

LET D=D+(X1(1)-X)*(X(1)-X) 
NEXT 1 


PRINT AT 13,15"DESVIACION TIPICA "5(D/N)”.S2 ST 


PROGRAMA PI 


DIM B(100): LET B(1)=INT (7OS%RND) 
FOR 1I=2 TO 100 

LET B(1)=INT (7O0S*%*RND) 

REM LOS B(1) DISTINTOS 

FOR J=1 TO 1-1 

IF B(1)=B(J) THEN GO TO 30 

NEXT J 

NEXT I 

FOR I=1 TO 100 


PRINT AT INT (B(1)/32)-1,B(1)-32*INT (B(1)/32)-— 


NEXT 1 
STOP 


PROGRAMA PS2 


INPUT "NUMERO DE FILAS Y COLUMNAS "3M,N 
DIM A(M,N): DIM B(M,N) 

FOR I=1 TO M 

FOR J=1 TO N 


INPUT ("CUANTO VALE A("315",.,"3J35”") ")5A(1,J) 
INPUT ("CUANTO VALE B1("315","5J35") ")5B1(1,J) 


PRINT "(*315%,"55")="534(1,J)+B(1,3J) 
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80 
90 


NEXT J 


NEXT 1 
STOP 
PROGRAMA —P?S=S 
INPUT "NUMERO DE FILAS Y COLUMNAS DE A "3N,M 


INPUT "NUMERO DE COLUMNAS DE BE ”; 
DIM A(N,M): DIM B(M,0): DIM P(N,OQ) 


FOR I=1 TON 
FOR K=1 TO M 


INPUT ("A("3153","53kK3")= ")54(1,K) 


NEXT K 
NEXT 1 
FOR K=1 TO M 
FOR J=1 TO Q 


INPUT ("B("5k3","5J3")= ")5B(K,J) 


NEXT J 

NEXT k 

FOR I=1 TON 

FOR J=1 TO Q 

FOR K=1 TO M 

LET P(1,3)=P(1,J)+A(1,K)*B(k,J) 
NEXT k 

PRINT "("513*,"53J5%)= "¿P(1,JD), 
NEXT J 

NEXT 1 

STOP 


PROGRAMA ”—PS9S4 


DIM A1(7,7) 

FOR 1=1 TO 7 

FOR J=1 TO 7 

LET A(1,J)=INT (100*RND) 


IF INT (A(1,J)/10)>0 THEN PRINT "x+* "5: GO TO 
PRINT A(1,J3)3” "5 

NEXT J 

PRINT : PRINT 

NEXT 1 


INPUT "ESCRIBE LA FILA Y COLUMNA "5F,C 


PRINT AT 18,103"A("5F3","5C05")= 
GO TO 100 


"3A(F,C) 


PROGRAMA '—PS9S3 


DIM A(5,3) 

FOR I=1 TO 5 

FOR J=1 TO 3 

INPUT ("TERMINO (“53153","333") ")34(1,J) 

NEXT J 

NEXT 1 

PRINT "MATRIZ INICIAL "5"MATRIZ TRASPUESTA"2 PR 


FOR I=1 TO 5 

FOR J=1 TO 3 
PRINT A(1.,J33"  "s 
NEXT J 

PRINT : PRINT 
NEXT 1 

FOR I=1 TO 3 

FOR J=1 TOS 
PRINT AT 3*1, 13+3x*xJ545(J,1) 
NEXT J 

PRINT 

NEXT 1 

STOP 


PROGRAMA ”—P?6S 


DIM A(9,9): LET Fi=1: LET F2=1 

FOR I=1 TO 9 

FOR J=1 TO 9 

LET A(1,J)=INT (9*RND)+1 

PRINT A(1,J)53"-—"5 

NEXT J 

PRINT : PRINT 

LET Fi=F1x*A(1,1): LET F2=F2x*A(1,10-—1) 
NEXT 1 

PRINT AT 19,15"PRODUCTO DIAG. PRINC. "5F1 
PRINT AT 21,15”PRODUCTO DIAG. SECUND. "5F2: STO 


PROGRAMA ” PS 


DIM A(99) 
LET K=1: LET N=0 
LET I=INT (99%RND)+1: LET A(1)=A(1)+1: LET N=N+ 
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FOR J=kK TO 99 
IF A(J)=0 THEN LET K=J: GO TO 30 
NEXT J 


PRINT "HE NECESITADO COMPRAR "3N5" CROMOS": PRI 


PRINT "LAS VECES QUE APARECE CADA CROMO DEL 1 A 


SON": PRINT 

FOR L=1 TO 11 

FOR M=9*L-8 TO eL 
PRINT A(M3" "5 
NEXT M 

PRINT 

NEXT L 

STOP 


FROGRAMA —P?E8 


INPUT "GRADO DEL POLINOMIO "3N 

DIM A(N+1) 

INPUT "TERMINO INDEPENDIENTE "5A(1) 
FOR 1=2 TO N+1 

INPUT ("COEFICIENTE DE X”"351-1),A(1) 
NEXT 1 

INPUT "VALOR DE A "35A 

PRINT "VALOR NUMERICO DEL POLINOMIO 


LET Si=0: LET S52=0 

FOR I=1 TO N+i STEP 2 

LET Si=S1+A(I)* (ABS (A)” (1-1)) 
NEXT 1 

FOR 1=2 TO N+1 STEP 2 

LET S2=S2+A(I)* (ABS (A)”7 (1-1)) 
NEXT 1 

IF A<O THEN FPRINT Si-S2: GO TO 70 
PRINT Si+S52:z GO TO 70 


PROGRAMA ”—PS9 


INPUT "DIMENSION DEL ESPACIO "5N 
DIM A(2,N): DIM N(2) 

FOR M=1 TO 2 

PRINT "VECTOR NUMERO "5M 

FOR I=1 TON 


PARA X=" 


INPUT ("COORDENADA NUMERO "51),A4(M,1): PRINT Al 


M,I)53" . 


70 
80 
90 

100 
110 
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150 
150 
no 
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7O 
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120 
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1) 
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LET N(M)=N(M)+A(M, 1)*A(M, 1) 

NEXT 1 

PRINT : PRINT "SU MODULO ES "5S0OR N(M): PRINT 
NEXT M 

PRINT "EL VECTOR SUMA ES "3: LET S=0 

FOR I=1 TON 

PRINT A(1,1)+4(2,1)3" "3 

LET S=S+A(1,1)*AM(2,1) 

NEXT 1 

PRINT : PRINT : PRINT "SU PRODUCTO ESCALAR ES " 


STOP 


PROGRAMMA PI1IO0O 


DIM A(1000) 

FOR I=1 TO 200 

LET X=INT (1000*RND)+1: LET At(X)=A(X)+1: 
NEXT 1 

LET S=0 

FOR I=1 TO 1000 

IF A(I)<>0 THEN LET S=S+1 

NEXT 1 

PRINT "CLIENTES BENEFICIADOS "3S:2 STOP 


PROGRAMA P1I0O1 


DIM A(40): DIM P(40): DIM N(40) 
PRINT AT 11,8;"ESTOY BARAJANDO" 
LET At(1)=INT (40*RND)+1 

FOR I=2 TO 40 

LET ACI)=INT (40%RND)+1 

FOR k=1 TO 1-1 

IF ACI)=A(K) THEN GO TO 50 
NEXT K 

NEXT 1 

CLS 

FOR M=1 TO 4 

PRINT "JUGADOR NUMERO "3M: PRINT "============= 


FOR I=10x*M-9 TO 10%*M 
LET PC(I)=INT ((A(1)-1)/10): LET N(1)=A(1)-10x*P ( 


IF N(1)=8 THEN PRINT "SOTA "53: GO TO 180 
IF N(1)=92 THEN PRINT "CABALLO "5: GO TO 180 
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160 IF N(I)=10 THEN PRINT "REY "3: GO TO 180 
170 PRINT N(I35" "s 

180 IF P(I)=0 THEN PRINT "OROS" 

190 I1F P(1)=1 THEN PRINT "COPAS" 

200 IF P(1I)=2 THEN PRINT "ESPADAS" 

210 1F P(1)=3 THEN PRINT "BASTOS" 

220 NEXT 1 

230 INPUT "PULSA UNA TECLA "354%: CLS 

240 NEXT M 

250 STOP 


PROGRAMA P1022 


10 LET J=10: LET O=10: DIM A(2,2) 

20 LET A(1,1)=1: LET A(1,2)=-12: LET A(2,1)=-2: LET 
A(2,2)=2 

30 PRINT AT 10,123"1  -1": PRINT AT 12,113"-2 2" 
40 INPUT "ELIGE FILA "5F:z CLS 

50 LET C=INT (2*RND)+1 

55 PRINT AT 19,83"FILA "5F3" COLUMNA "5C 

60 LET J=J+A(F,C): LET 0=0-A(F,C) 

70 PRINT AT 2,55 "JUGADOR "3353" PTAS" 

80 PRINT AT 4,5;"ORDENADOR "303" PTAS" 

90 IF J=0 OR 0O=0 THEN STOP 

100 GO TO 30 


PROGRAMA P10O= 


10 FOR I=1 10 19 

20 PRINT AT 1,303" ” 

30 NEXT 1 

30 LET C=1: DIM A(4) 

50 FOR I=1 TO 4 

60 PRINT AT 6x*(1-1),053"GALGO "351 

70 PRINT AT 6x*1-5,A(1)5"x*" 

80 NEXT 1 

90 IF A(C)=30 THEN PRINT AT 21,55; "VENCEDOR EL GAL 
GO "53Cz STOP 

100 REM LANZAR LAS TRES MONEDAS 

110 LET C=1 

120 FOR I=1 TO 3 

130 LET X=RND 

140 IF X<.S THEN LET C=C+1 

150 NEXT 1 

160 LET A(C)=A(C)+1 
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INPUT "PULSA UNA TECLA "5A$: 60 TO 50 


PROGRAMA PI1I0O< 


10 INPUT "HASTA QUE FILA DESEA IMPRIMIR "5N 

15 IF N=1 THEN PRINT 1: STOP 

20 DIM A(N,N+1) 

30 LET A(2,1)=1: LET A(2,2)=1 

40 FOR I=2 TO N 

50 REM DAR VALORES A LOS PRIMEROS Y ULTIMOS DE CAD 
FILA 


LET A(1,1)=1: LET A(1,1)=1 
REM CALCULO DE LOS TERMINOS 
FOR K=2 TO 1-1 

LET A(1,K)=A1(1-1,K)+A(1-1,K-1) 


(NEXT k 


NEXT 1 
REM IMPRIMIR EL TRIANGULO 
PRINT 1 

FOR I=2 TON 

FOR K=1 TO 1 

PRINT A(1I,K)53" "5 

NEXT kK 

PRINT 

NEXT 1 

STOP 


PROGRAMA PI1IOS3 
INPUT "NUMERADOR "5M 


INPUT "DENOMINADOR "3N 
DIM A(M+1,M+1) 


LET A(2,1)=1:2 LET A(2,2)=1 


FOR K=2 TO M+1 
LET A(K,1)=1: LET A(K,K)=1 

FOR J=2 TO Kk-1 

LET A(K,J)=A(K-1,J)+A(K-1,J-1) 

NEXT J | 

NEXT K 

PRINT M3" SOBRE "53N53" = "5A(M+1,N+1) 
GO TO 10 
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PROGRAMA P1I0S5 


10 INPUT "NUMERO DE PALABRAS "3N 
20 DIM A$(N, 10) 

30 FOR I=1 TON 

40 INPUT "INTRODUCE UNA PALABRA ",A$(1) 
50 NEXT 1 

60 REM GORDENACION POR INSERCCION 
70 FOR I=1 TO N 

80 FOR J=1 TO 1-1 

90 IF A$(J)<A$(1) THEN GO TO 125 
95 LET B$=A$(1) 

100 FOR K=1 TO J+1 STEP -1 

110 LET A$(K)=4$ (k-1) 
115 NEXT K 

120 LET A$(J)=B$: GO TO 130 

125 NEXT J 
130 NEXT 1 
140 FOR I=1 TON 
150 PRINT A$(1) 
160 NEXT 1 
170 STOP 


PROGRAMA PIO 


50 CLS y $ 

60 INPUT "EXTREMO INFERIOR Y SUPERIOR "5A.,B 
7O LET S=0: LET P=(B-A) /500 

80 FOR J=1 TO 500 

90 LET X=A+(J-1)x*P 

100 GO SUB 500 

110 LET S=S+Px*Y 

120 NEXT J 

130 PRINT "EL VALOR DE LA INTEGRAL ES ",S 
140 STOP 
310 RETURN 


PROGRAMA P1I083 
10 INPUT "ESCRIBE LA BASE "¡A 
20 INPUT "ESCRIBE EL EXPONENTE "5N 


50 LET P=1 
40 FOR I=1 TO N 
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GO SUB 100 

LET P=S 

NEXT 1 | 
PRINT As "0"5N5"= "5P 
60 TO 10 

LET S=0 

FOR J=1 TOA 

LET S=S+P 

NEXT J 

RETURN 


PROGRAMA PI1I0% 


S>REM TARDA ALGO DE TIEMPO EN EJECUTARSE 


10 
20 
30 
40 
30 
) ) 
60 
7O 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 


210 
220 
230 
240 
250 
260 
270 
280 
290 
00 


DIM a(7) 

FOR i=112977 TO 999999 STEP 2 

FOR j=11 TO 99 STEP 2 

FOR k=1 TO 7 : 

LET a(k3)=INT (1%3/ (107 (k-1)))-10O*INT (i*j/(107k 


NEXT k 

IF at4)<>a17) THEN GO TO 400 

LET »=a(1) 

GO SUB 2000 

IF p<2>50 THEN LET p=0: GO TO 400 

LET x=af(1)+10*a (2) 

GO SUB 2000 

IF p<>0 THEN LET p=0:z GOD TO 400 

LET x=a1(2)+10x*a(3) 

GO SUB 2000 

IF p<>0 THEN LET p=0: G0 TO 400 

LET x=a(1)+10*a (2) +100*a (3) 

GO SUB 2000 

IF p<>0 THEN LET p=0: GO TO 400 

LET x=a(1)+10*a1(2)+100%a (3) +1000*a (4) +10000*a (5 
A 

GO SUB 2000 

IF p<>50 THEN LET p=0: GO TO 400 

LET x=a(2)+10*a (3) +100*%a (4) +1000*a (5) 

GO SUB 2000 

IF p<>0 THEN LET p=0: GO TO 400 

LET x=a(4)+10x*a (5) 

GO SUB 2000 

IF p<>0 THEN LET p=0: GO TO 400 

LET x=af(3)+10*%a (4)+100*%a (53) +1000*a (6) 

GO SUB 2000 
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310 


IF p<>0 THEN LET p=0: GO TO 400 


320 LET »x=a14)+10*%a (5) +100*a (6) 

330 GO SUB 2000 

340 1F px<>0 THEN LET p=0: GO TO 400 

350 LET x=a1(4)+10%*%a (5) +100*%a (6) +1000*%a (7) 

360 GO SUB 2000 

370 IF pi>0 THEN LET p=0: GO TO 400 

380 IF INT (ix3/2)=ix*x3/2 OR INT (ix*j/3)=ix*j/3 OR IN 
T (iX%j3/5)=1X%3/5 OR INT (ix3/7)=1xXx33/7 THEN GO TO 420 
200 NEXT j 

410 NEXT i 

420 PRINT "la multiplicacion es:”: PRINT AT 5,155i: 
PRINT AT 7,1953: PRINT AT 8,1553".  ___ "*: PRINT AT 

10,1551*(3-1OX*INT (3/10)): PRINT AT 11,143ix* INT (j5/ 
10): PRINT AT 12,145" ": PRINT AT 14,143i+x%j 
430 STOP 
2000 LET p=0 
2010 FOR m=2 TO INT (SOR (x)3) 
2020 1F INT (x/m)=x/m THEN LET p=p+1 
Z030 NEXT m 
2040 RETURN 

PROGRAMA PJ1I10 
10 INPUT "escribe un numero "za$: IF LEN (A$)<>4 T 
HEN GO TO 10 
15 PRINT A$ 

20 IF VAL f(a$(1))=0 THEN GO TO 60 

30 IF VAL fía$11))=i THEN GO TO 50 

40 GO SUB 200*VAL (at(1)) 


PRINT *" MIL "s 


60 IF VAL (A$(2))=0 THEN GO TO 130 

65 IF VAL (A$(2 TO:))=100 THEN PRINT "CIEN": GO T 
oO 10 

70 IF VAL (A$(2))=1 THEN PRINT "CIENTO "5: GO TO 
130 

80 IF VAL (A$(2))=5 THEN PRINT "QUINIENTOS "3: GO 
JO 130 

90 IF VAL (A$(2))=7 THEN PRINT "SETE"5: GO TO 120 
100 IF VAL (A$12))=92 THEN PRINT "NOVE"5: GO TO 120 
110 GO SUB 200*VAL (a$(2)) 


120 
130 
140 
150 
160 
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PRINT "CIENTOS ";s 

IF VAL (A$1(3))=0 THEN 60 TO 230 

IF VAL (A$(3 TO )3)<20 THEN GO TO 300 
IF VAL (A$(33)=2 THEN PRINT "VEINTE “5 
IF VAL (A$(3))=3 THEN PRINT "TREINTA "; 


170 1F VAL (A$(3))=4 THEN FPRINT "CUARENTA "5 

180 IF VAL 1(A$13))=5 THEN PRINT "CINCUENTA "5 

190 IF VAL (A$(3))=6 THEN PRINT "SESENTA "5 

200 IF VAL (A$(3))=7 THEN PRINT "SETENTA "3 

210 IF VAL (A%+(3))=8 THEN PRINT "OCHENTA *;5 

220 IF VAL (A$(3))=9 THEN PRINT "NOVENTA "35 

230 IF VAL (A$(4))=0 THEN G0 TO 280 

240 1F VAL (A$(4))=1 AND VAL (A$(3))<>0 THEN PRINT 
" Y UNO”: GO TO 290 

250 1F VAL (A$(4))=1 AND VAL (A$(3))=0 THEN PRINT 
”" UNO": GO TO 290 

260 IF VAL (A$(3))<>50 THEN PRINT " Y "3 

270 GO SUB 200*VAL (A$5(4)) 

280 PRINT 

290 60 TO 10 

300 IF VAL (A$(3 TO ))=10 THEN PRINT "DIEZ": GO TO 
10 : 
210 IF VAL (A$(3 TO ))=11 THEN PRINT "ONCE": GO TO 
10 

520 IF VAL (A$(3 TO ))=12 THEN FPRINT "DOCE"2 GO TO 
10 

330 IF VAL (A$(3 TO ))=13 THEN PRINT "TRECE": GO T 
O 10 

340 IF VAL (A$(3 TO ))=14 THEN PRINT "CATORCE": GO 
TO 10 

350 IF VAL (A$(3 TO ))=15 THEN PRINT "QUINCE": GO 
JO 10 
60 I1F VAL (A$(3 TO ))=16 THEN PRINT "DIECISEIS": 
GO TO 10 

370 1F VAL (A$(3 TO >)3)=17 THEN PRINT "DIECISIETE": 
GO TO 10 

380 IF VAL (A$(3 TO ))=18 THEN PRINT "DIECIOCHO”: 
GO TO 10 

390 1F VAL (A$(3 TO >)3)=19 THEN PRINT "DIECINUEVE": 
GO TO 10 

3400 PRINT "DOS"3: RETURN 

600 PRINT "TRES"5: RETURN 

800 PRINT "CUATRO"5: RETURN 

1000 PRINT "CINCO"5: RETURN 

1200 PRINT "SEIS"53: RETURN 

1400 PRINT "SIETE"5: RETURN 

16500 FRINT "DOCHO"3: RETURN 

1800 PRINT "NUEVE"5:2: RETURN 
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10 
3 
20 
ZO 
40 
50 
60 
7O 
go 
90 
100 
ales 
110 
120 
130 
140 
500 
510 
520 
5340 

330 
540 


10 
20 
50 
40 
30 
60 
7O 
80 
90 
100 


10 
20 
30 
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PROGRAMA Piaidd 


INPUT "cual es el valor den "3n 
IF n=1 THEN PRINT "1 2 3 5 7"2 STOP 
DIM atí(4*n) 


LET at1l)=1:z LET a(2)=22: LET a(3)=32 LET i=3 


FOR k=1 TO n 

LET x=6x*k-1 

GO SUB 500 

LET x=6*k+1 

GO SUB 500 

NEXT k 

PRINT "Hay "3i5” numeros primos menores 
que "36x*n+1: PRINT 

FOR 1=1 TO i 

PRINT a(1)3"-">5 

NEXT 1 

sTOP 

LET j=3 

IF INT (x/a(j))=x/a(1j) THEN GO TO 540 
1IF x<afj)"2 THEN LET i=i+1: LET aífi)=x: 


LET j=ji+1: 60 TO 510 
RETURN 


FROGRAMA P311322 


LET S=0: LET P=1 
FOR X=1 TO 10 

READ A 

LET S=S+A: LET P=PxA 

NEXT Xx 

PRINT "LA SUMA ES "3S 

PRINT "EL PRODUCTO ES ";P 

PRINT "LA MEDIA ARITMETICA ES "35/10 
DATA 1,5,9,3,4,12,34,5,77,24 

sToP 


PROGRAMA FP1I1= 


INPUT "DAME EL NUMERO DEL MES "3N 


IF N<>INT N OR N>12 OR N<i THEN GO TO 10 


DATA "ENERO", "FEBRERO", "MARZO" 


o igu 


GO TO 


DATA "ABRIL","MAYO", "JUNIO" 

DATA "JULIO", "AGOSTO", "SETIEMBRE" 

DATA "OCTUBRE", "NOVIEMBRE".,"DICIEMBRE" 

FOR X=1 TO 12 

READ A$: IF X=N THEN PRINT "EL MES NUMERO "5N5 
"5AS$ 

NEXT X 

RESTORE 

GO TO 10 


PROGRAMA P114a 


S>REM INTRODUCE TODOS LOS TELEFONOS QUE QUIERAS, Y 
MODIFICA LA LINEA 30 


10 

2413 
20 
30 
40 
50 

ST 
60 
70 
80 


10 
20 
30 
40 
50 
60 


DATA "ISAAC", 3567832, "PEPE", 4554532, "MARIA", 656 


INPUT "EL TELEFONO DE "3N% 

FOR X=1 TO 3 

READ A$,T 

IF A$=N$ THEN PRINT "EL TELEFONO DE "5A$3" ES 


NEXT X 
RESTORE 
GO TO 20 


PROGRAMA Fil 


PRINT "SEGUNDA EVALUACION ">>>> 

PRINT TAB 63 "MATEMATICAS"; " INFORMATICA "”>>> 
FOR X=1 TO 6 

READ A$,M, 1 

PRINT A$5TAB 105M3TAB 2351>”>” 

NEXT X 


70 DATA "M.D.”,0,0,”INS.",12,10,"SUF.",15,18, "BIEN 
",6,8,"NOT.",5,3,"S0B.",2,2 


80 


10 
15 
20 
30 


STOP 


PROGRAMA P116 


PRINT "SATELITES DE JUPITER"?”?”*” 
PRINT "NOMBRE"5TAR 123 "DESCUBRIDOR"5TAB 255 "ANO 


FOR X=1 TO 12 
READ A$,D$,A 
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40 PRINT A$3TAB 123D$3TAB 2534 


50 


7O 


NEXT X 
DATA "AMALTEA”, "BARNARD",1892,”"10", "GALILEO", 1i6 


10, "EUROPA", "GALILEO", 1610, "GANIMEDES", "GALILEO", 161 
O, "CALIXTO", "GALILEO", 1610, "HESTIA", "PERRINE", 1904," 
HERA", "PERRINE", 1905, "DEMETER", "NICOLSON", 1938, "ADRA 
STEA", "NICOLSON", 1951,"PAN", "NICOLSON", 1938, "POSEIDO 
N", "MELOTTE”, 1908, "HADES", "NICOLSON", 1914 


10 
PS ."n 
30 
40 
50 
60 
70 
30 
90 
100 


os 


10 
20 
30 
40 
SO 
60 
7O 
80 
90 
100 
110 
120 
130 
140 
150 
160 
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PROGRAMA FPF1I1Y 


INPUT "DAME El NUMERO MENOR Y LUEGO EL MAYOR "; 
“so 

PRINT "PULSA Xx" 

FOR A=P TO Q 

IF INKEY$="x" OR INKEY$="X" THEN GO TO 80 

NEXT A 

60 TO 40 

PRINT A 

60 TO 10 

STOP 


PROGRAMA P118 


BORDER 1:PAPER 1: INK 7:CLS 

INPUT "PULSA UNA TECLA PARA EMPEZAR"3As$ 
FOR A=0 TO 
FOR B=0 TO 
IF A=2 AND B=4 THEN GO TO 10 
FOR C=0 TO 
FOR D=0 TO 
FOR E=0 TO 
FOR F=0 TO 
PAUSE 48 
PRINT AT 10,113A3B3":2"3C3D3":"5E53F 
NEXT 
NEXT 
NEXT 
NEXT 
NEXT 
NEXT 


DN 


Q cn sc 


PDdbounoama 


10 
20 
0 
40 
50 
60 
7O 
30 
$0 
100 
110 
120 
130 


10 
20 
50 


40 
50 


60 


PROGRAMA FPF3119 


LET N=0: LET M=20 

PRINT AT M,16+N;5 ll + 

PAUSE 0 

PRINT AT M,16+N5" E 

1F INKEYS$="S" THEN LET N=N-—1 
IF INKEY$="8" THEN LET N=N+1 
IF INKEY$="7" THEN LET M=M-1 
IF INKEY$="6" THEN LET M=M+1 
IF N2-16 THEN LET N=-—16 

IF N>11 THEN LET N=11 

1F MO THEN LET M=0 

IF M>21 THEN LET M=21 

60 TO 20 


FPFROGRAMA F31I220 
PRINT "TRADUCTOR MORSE SOLO VOCALES"? ” > 


PRINT "ESCRIBE SOLO MAYUSCULAS”? ” ” 
IF INKEY$="A" THEN PRINT "A .-",: BEEP 0.1,0.5 


BEEP 0.3,0.3 


IF INKEY$="E" THEN PRINT "E .",: BEEP 0.1,0.5 
IF INKEY$="1"” THEN PRINT "Il ..",: BEEP 0.1,0.53 


BEEP 0.1,0.5 


IF INKEY$="0" THEN FRINT "0 —-—-—-%,:3 BEEP 0.3,0. 


3: BEEP 0.3,0.5S: BEEP 0.3,0.3 


7O 


IF INKEY$="U" THEN FRINT "U ..—-",: BEEP 0.1,0. 


S: BEEP 0.1,0.5: BEEP 0.3,0.5 


80 
90 


PAUSE O 

GO TO 30 

PROGRAMA Pi1i221 
REM RETENCION DE UN NUMERO 


BORDER 1: PAPER 1d: INK 7: CLS 

INPUT "GRADO DE DIFICULTAD (1 A 10) "3N: IF N>1 
N<1 THEN GO TO 30 

LET A=INT (RND*10000) 

LET X=INT (RND*21)+1 

LET Y=INT (RNDx*28) 

PRINT AT X,Y3A 

PAUSE S0x*1/N 


187 


90 CLS 

100 INPUT E 

110 IF A=B THEN FPRINT "CORRECTO": PAUSE 100: GO TO 
40 

120 PRINT ” INCORRECTO, EL NUMERO ES:"34A: PAUSE 100: 
GO TO 40 


PROGRAMA Pi1i22:22 


10 PRINT AT 21,13553"A" 

20 1F INKEY$="0" THEN FOR N=1 TO 21: FRINT AT 21-— 
N,153"/": PAUSE S: PRINT AT 21-N,155" ": NEXT N 

30 GO TO 20 


FROGRAMA F1i22= 


10 FOR x=0 TO 7: READ kz POKE USR "m"+x,kz NEXT x 
20 DATA 62,0,34,50,42,38,34,0 
30 STOP 


PROGRAMA P1224 


10 FOR x=0 TO 7: READ kz POKE USR "A"+x,.kz NEXT x 
20 DATA 85,170,85,170,85,170,85,170 
30 STOP 


FROGRAMA P132>3 


10 FOR X=1 TO 40 

20 CIRCLE 2%*X+20,2*X+20, 20 
30 NEXT X 

40 STOP 


PROGRAMA P126 


10 FOR X=0 TO 152 STEP 19: PLOT 40,X: DRAW 132,0: 
NEXT X 

20 FOR X=0 TO 152 STEP 19: PLOT 40+X,0O:z DRAW 0,152 
z NEXT X 

30 STOP 
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PROGRAMA PI1I22Y7 


S PAPER 4: INK 7: BORDER 0:CLS 
10 DRAW 255,0: DRAW 0,175: DRAW —255,0: DRAW 0,-17 


20 PLOT 127,0: DRAW 0,175 

30 CIRCLE 127,87,40 

40 PLOT 0,47: DRAW 50,0: DRAW 0,80: DRAW -50,0 
50 PLOT 255,47: DRAW -50,0: DRAW 0,80: DRAW 50,0 
60 CIRCLE 127,87,2 


PROGRAMA FPF1I223 


10 PLOT 75,40: DRAW 100,0: DRAW -—S50, 1O0OO*SOR 3/2: D 
RAW —50, —100*SOR 3/2 
ZO STOP 


PROGRAMA P1I22% 


10 BORDER 1: PAPER 12 INK 7: CLS 
20 INPUT "CURSO Y GRUPO "5C%$%: PRINT "CURSO "3C$5" 


3O INPUT " ALUMNOS: "5N: PRINT " ALUMNOS: "3N”?” 

40 INPUT "ASIGNATURA "5A$: PRINT As$ 

530 INPUT "CALIFICADOS CON M.D:"3A 

60 INPUT "CALIFICADOS CON IN:"5B 

7O INPUT "CALIFICADOS CON SU: "35C 

80 INPUT "CALIFICADOS CON Bl:"3D 

90 INPUT "CALIFICADOS CON NO:"5E 

100 INPUT "CALIFICADOS CON SO: "5F 

110 IF A+B+C+D+E+FI<>5N THEN GO TO 10 

120 PLOT 0,8: DRAW 255,0: PLOT 0,8: DRAW 0,142 

130 PRINT AT 21,153"M.D"3AT 21,73"IN"5AT 21,123"SU">5 
AT 21,173"BI"3AT 21,223"NO"5AT 21,273”"S0O" 

140 FOR X=1 TO 6: READ M,P 

150 PLOT M,10: DRAW 0, 140*P/N: DRAW 8,0: DRAW 0,-15 
OXP/N 

160 NEXT X 

170 DATA 18,A,60,B,100,C,140,D, 1890,E,220,F 

190 FOR X=56 TO 150 STEP 47: PLOT 0,X:z DRAW 8,O:z NE 
XT X 

200 STOP 
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PROGRAMA F1I30 


10 PLOT 127,87 
20 FOR X=1 TO 7 


30 READ A 

40 DRAW A,O0,-PI 

50 NEXT X 

60 DATA -2,4,-8,16,-32,64,-128 
70 STOP 


PROGRAMA Pi=31 


10 REM EMPEZAREMOS EN (0,0) 

20 LET X=0: LET Y=0 

3O LET A$=INKEYS$ 

40 LET X=X+(A$="E" OR A$="D" OR A$="C")-(A$="Q" OR 
A$="A" OR A$="Z") 

50 LET Y=Y+(A$="0" OR A$="W" OR A$="E")-(A$="Z" OR 
A$="X" OR A$="C") 

60 IF X<0 THEN LET X=0 

70 1F X>255 THEN LET X=255 

80 IF Y<O THEN LET Y=0 

90 IF Y>175 THEN LET Y=175 

100 PLOT X,Y 

110 60 TO 30 
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PROGRAMA Fi 


S>5REM TARDA ALREDEDOR DE 1 HORA 


10 
20 
30 
33 
40 
45 
50 
pa 
60 
63 


FOR A=2 TO 3 

LET B=5-A 

FOR C=S TO 15 

IF C=6 THEN GO TO 240 

FOR D=5 TO 15 

IF D=6 OR D=C THEN 60 TO 230 

FOR E=53 TO 15 

IF E=6 OR E=C OR E=D THEN GO TO 220 

FOR F=5 TO 15 

IF F=6 OR F=C OR F=D OR F=E THEN GO TO 210 


7O FOR G=53 TO 15 

75 1F G=6 OR G=F OR G=E OR G=D OR G=C THEN GO TO 
200 

80 LET H=17-D 

85S IF H=C OR H=D OR H=E OR H=F OR H=G OR H=6 THEN 
GO TO 200 

0 LET 1=20-=E 

95 IF I=C OR 1=D OR I=E OR I=F OR 1=G OR I=6 OR I= 


H THEN 60 TO 200 


100 
105 
H OR 
110 
115 


LET J=18-C-G 

IF J=C OR J=D OR J=E OR J=F OR J=G OR J=6 OR J= 
J=1 THEN GO TO 200 : 

LET K=28-A-D : 

IF K=16 OR K=C OR K=D OR K=E OR K=F OR K=G OR K 


=6 OR K=H OR K=1I OR K=J3 THEN GO TO 200 


120 
125 
130 
140 
150 
160 
200 
210 
220 
230 
240 
250 
500 
310 
320 
330 


LET L=34-B-E-H 

IF E+J<>15 THEN GO TO 200 

IF C+D+E+F<>34 THEN G0 TO 200 
IF G+H+I1<>28 THEN GO TO 200 
IF J+K+L<>33 THEN GO TO 200 
60 TO 300 

NEXT 
NEXT 
NEXT 
NEXT 
NEXT 
NEXT | 
PRINT 165TAB 6505TAB 12;3B3TAB 18513 
PRINT C5TAB 653D3TAB 12;3E5TAB 18;5F 
PRINT G5TAB 6565TAB 125H3TAB 1851 
PRINT J5TAB 65K3TAB 123L5TAB 1831 


Doommnoa 
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STOP 


PROGRAMA FA 


FOR Z=1 TO 9 
FOR Y=1 TO 9 
FOR X=1 TO 9 
PRINT X+Y3TAB 45X-Y-Z5TAB 853X+Z: PRINT 
PRINT X-Y+Z5TAB 453X53TAB 83X+Y-Z: PRINT 


PRINT X-Z53TAB 453X+Y+Z53TAB 83X-Y: PRINT : PRINT 
IF Y2>75Z AND Y+Z=4 AND X=S5S AND X>Y+Z THEN GO TO 


PAUSE 50 

IF INT (X/3)=X/3 THEN  CLS 

NEXT X 

NEXT Y 

NEXT Z 

STOP 

PRINT AT 10,155 "CUADRADO MAGICO" 
PRINT 2: PRINT : PRINT 

PAUSE O 

GO TO 30 


PROGRAMA F= 


INPUT "orden del cuadrado "3n 

DIM aín,.n) 

LET i=(n-1)/23 LET j=1(n+1)/2: LET ati,j)=1 
FOR k=2 TO n?2 

LET j=j+1 

1IF j<=n THEN 60 TO 80 

LET j=1 

LET i=i-1 

IF i<>0 THEN GO TO 110 

LET i=mn 

IF a(i,j)=0 THEN LET aíi,.,j)=k:z GO TO 150 
LET j=j-1 

IF j¡<>0 THEN GO TO 80 

LET j=n: GO TO 80 

NEXT k 

REM Presentacion para n=3,5,7 

FOR i=1 TO n 

FOR j=1 TO n 

PRINT AT 3xi,4*j5a(i,j) 

NEXT 5 


240 NEXT i 
250 STOP 


PROGRAMA Fo 


10 INPUT "escribe el numero ";za$ 

20 LET 0=0: LET y=q 

30 FOR i=LEN fa$) TO 1 STEP -—1 

240 FOR j=1 TO 7 

50 I1F a$(i)="IVXLCDM"” (3) THEN GO TO 100 
60 NEXT j 

7O PRINT "INCORRECTO": STOP 
100 LET x=VAL "0010050100501005001E3" (jx*3-2 TO jx*3) 
110 1F J>=0 THEN LET y=y+x 

115 IF J<Q THEN LET y=Y-X 
120 IF j>0 THEN LET q=j 

130 NEXT i 

140 PRINT a$3" = "3y 

150 GO TO 10 


PROGRAMA FO 


10 INPUT "ESCRIBE EL NUMERO "54M: PRINT A" = "; 

20 FOR I=1 TO 7 

ZO LET X=VAL "1E3500100050010005001"(3*1-2 TO 3+*1) 
40 IF A<X THEN GO TO 60 

50 PRINT "MDCLXVI"(1)5: LET A=A-X: G0 TO 30 

560 LET Y=VYAL "100100010010001001000" (3*1-2 TO 3*1) 
70 IF A<X-Y THEN 60 TO 90 

380 PRINT "CCXXIII"(1)5= LET A=A4+Y:z GO TO 30 

90 NEXT 1 

100 PRINT : GO TO 10 


FROGRAMA Fó 


SREM TARDA UNA MEDIA HORA 

10 FOR M=i TO 9 

20 FOR O=0 TO 9 
30 IF O=M THEN GO TO 230 
40 FOR N=0 TO 9 
50 IF N=M OR N=0 THEN 60 TO 220 
60 FOR E=0 TO 9 
70 1F E=N OR E=0 OR E=M THEN GO TO 210 
30 FOR Y=0 TO 9 
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90 IF Y=E OR Y=N OR Y=D OR Y=M THEN 60D TO 200 

100 FOR R=0 TO 9 

110 IF R=Y OR R=E OR R=N OR R=0 OR R=M THEN GOD TO 
190 

120 FOR D=0 TO 9 

130 IF D=R OR D=Y OR D=E OR D=N OR D=0 OR D=M THEN 
GO TO 180 

140 FOR S=0 TO 9 

150 IF S=D OR S=R OR S=Y OR S=E OR S=N OR S=0 OR S= 


M THEN GO TO 170 


160 IF 1000*S+1000+*M+1 00*E+1 00%0+10%N+10*R+D+E=1000 
O*M+1000*O0+100N+10*E+Y THEN 60 TO 300 
170 NEXT S 
180 NEXT D 
190 NEXT R 
200 NEXT Y 
210 NEXT E 
220 NEXT N 
230 NEXT O 
240 NEXT M 
300 PRINT TAB 653S5E3N5D 
310 PRINT TAB 63M505R5E 
320 PRINT TAB 595 "--——-— E 
330 PRINT TAB 55M53053N5E5Y 
340 STOP 
PROGRAMA FAY 
10 INPUT "CUANTAS ECUACIONES TIENE EL SISTEMA "53N 
15 LET MI=0: LET M=0 
20 DIM A(N,N+1): DIM B(N+1): DIM C(N+1) 
25 DIM K(N+1): DIM X(N+1): DIM M(N+1) 
30 FOR 1=1 TO N 
40 FOR J=1 TO N+1 
50 INPUT ("CUAL ES EL COEFICIENTE A("315",."3J5") ” 
3J3411,3J) 
60 NEXT J 
7O NEXT 1 
80 FOR K=1 TO N-1 
90 REM LOS AfK,K)<>0 
100 IF A(K,K)<>0 THEN GO TO 190 
110 FOR I=kKk+i TO N 
120 IF A(K,K)<>0 THEN GO TO 150 
130 NEXT 1 
140 GO TO 600 


150 
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FOR J=kK TO N+1 


160 
170 
180 
190 
200 
210 

220 
230 
240 
250 
260 
270 
280 


LET C(J)=A4(1,J): LET BE(J)=A(K,J) 

LET A(1,J)=B(J)2: LET A(K,J)=C(J) 

NEXT J 

FOR I=k+1 TON 

FOR J=K TO N+1 

LET K(J)=A(1,J)-(A(K,J)XA(1I,K)>)/A1K,K) 
NEXT J 

FOR J=kK TO N+1 

LET A(1,J)=K(J) 

NEXT J 

NEXT 1 

NEXT K 

IF A(N,N)=0 AND ABS A(N,N+1)<.177 THEN PRINT " 


SISTEMA INDETERMINADO": STOP 


290 


IF A(N,N)=0 AND A(N,N+1)<>50 THEN PRINT "SISTEM 


A INCOMPATIBLE": STOP 


300 
310 
520 
330 
340 
450 
360 
370 
380 
390 
400 
410 
420 
430 
440 
5300 
310 
5320 
330 
340 
500 
360 
370 


LET X(N)=A(N,N+1)/A(N,N) 
FOR 1=N-1 TO M+1 STEP -1 
FOR K=N TO 1+1 STEP -1 
LET MI=MI+A(1,K)*X(1K) 


NEXT k 

LET X(1)=(A(1,N+1)-M1)/A(1,1) 
LET MI=0 

NEXT 1 

IF M<>0 THEN G0 TO 500 
PRINT "SOLUCIONES" 

PRINT "=========="3 PRINT 
FOR I=1 TO N 

PRINT "X"5153" = "5X(1) 

NEXT 1 

STOP 

FOR I=M TO 1 STEP -1 

FOR K=I-1 TO 1 STEP -1 

IF A(K,1)<>0 THEN PRINT "SISTEMA INDETERMINADO 
STOP 

NEXT k 


FOR K=N TO I+1 STEP -1 

LET M(1)=MC(1I)+A1(1,K)*X1(K) 

NEXT K 

IF M(1)<>A(1,N+1) THEN PRINT "SISTEMA INCOMPAT 


IBLE"=: STOP 


580 
53970 
600 
610 
620 
630 


NEXT I 

PRINT "SISTEMA INDETERMINADO": STOP 
REM INCOMPATIBLE O INDETERMINADO 
LET M=k 

NEXT K 

GO TO 280 
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PROGRAMA FS 


10 LET X=INT (22%*RND): LET Y=INT (22%RND)> 
15 LET N=0 
20 INPUT "DAME FILA Y COLUMNA "51,J 
30 LET N=N+1 
40 IF X=1I AND Y=J THEN PRINT 13"-"3J5" TESORO", N;5 
" INTENTOS": STOP 
50 IF ABS (X-1)<=1 AND ABS (Y-J)<=1 THEN PRINT 15 
"="3J53" MUY CERCA": GO TO 80 
60 1F ABS (X-1)<=2 AND ABS (Y-J)<=2 THEN PRINT 15 
"="3353"” CERCA”: GO TO 80 
ZO PRINT 15%-—"3J3" LEJOS" 
80 IF N<10 THEN GO TO 20 
90 PRINT AT 13,0;3"ESTABA EN "5X3"-"5Y 
100 STOP 


PROGRAMA FS 


10 PLOT 128,1: DRAW 0,174 

20 PLOT 1,88: DRAW 254,0 

30 FOR x=-120 TO 120 

40 LET y=60*((1-(ABS x/120)72.5)”.4) 
50 PLOT 128+x,88+y 

60 PLOT 128+x,88-y 

70 NEXT x» 

80 STOP 


PROGRAMA Fio 


10 PLOT 128,1: DRAW 0,174 

20 PLOT 1,88: DRAW 254,0 

30 FOR X=-80 TO 80 

40 LET Y=(1—(ABS X/80)” (2/3))” (3/2) 

50 LET P=(1-(ABS X/80)“2).5 

60 LET R=(1-(ABS X/80)74)”.25 

70 PLOT 128+X,89+Yx*80: PLOT 128+X,88-Yx*80 
380 PLOT 128+X,88+Px*80: PLOT 128+X, 88—P*+80 
90 PLOT 128+X,88+Rx80: PLOT 128+X,88-—Rx*80 
100 NEXT X 

110 STOP 
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PROGRAMA Fil 


10 INPUT "GRADO DEL PRIMER POLINOMIO "3N 
20 INPUT "GRADO DEL SEGUNDO POLINOMIO "53M 
30 IF M>N THEN 60 TO 10 
40 DIM A(N+M+1): DIM B(M+N+1): DIM C(N+M+2): DIM D 
(N-M+1) 
50 LET XX=N-M:z LET E=0 
60 FOR I=1 TO N+1 
70 INPUT ("PRIMER POLINOMIO COEFICIENTE DE X-”" 
51-1),A(1) 
73 NEXT 1 
380 FOR I=1 TO M+1 
85 INPUT ("SEGUNDO POLINOMIO COEFICIENTE DE X-”" 
51-1),B(1) 
90 NEXT 1 
100: INPUT "1 PRODUCTO, 2 COCIENTE "5T 
110 IF T=2 THEN (GO TO 300 
120 FOR I=1 TO N+M+1 
125 LET P=0 
130 FOR K=1 TO 1 
140 LET P=P+A(K)x*B1(1I+1-K) 
150 NEXT K 
1650 LET C(1)=P 
170 NEXT 1 
1890 PRINT C(1)3" + "5 
190 FOR I=2 TO N+M 
195 IF C(1)=0 THEN (GO TO 210 
200 PRINT C(1)3" (X""31-13") + "35 
210 NEXT 1 
220 PRINT C(N+M+1)353" (X""3M+N3")" 
230 STOP 
300 LET R=N-M 
310 IF R<O THEN GO TO 500 
320 LET D(R+1)=A(N+1)/B(M+1) 
330 FOR I=N-M+1 TO N+1 
340 LET ACI)=A(1)-A(N+1)*B(1+M-N) /B(M+1) 
350 NEXT 1 
360 FOR K=N+1 TO 1 STEP -1 
370 IF A(fK)<>0 THEN: LET N=kK-1:2 60 TO 300 
380 NEXT K 
390 LET E=1 
500 PRINT "COCIENTE":= PRINT D(1)33" + "5 
510 FOR I=2 TO XxX 
520 IF D(I)=0 THEN (60 TO 540 
530 PRINT D(1I)5" (X""31-1353") + "; 
540 NEXT 1 
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5590 PRINT D(XX+1)53"(X""53XX53")"=2z PRINT 

560 1F E=1 THEN PRINT "RESTO CERO": STOP 
570 PRINT "RESTO" 

580 PRINT At1)3"+ "; 

53590 FOR I=2 TON 

600 1F A(1)=0 THEN GO TO 620 

610 PRINT A(I33" (X7""31-13") + "5 

620 NEXT 1 

630 IF N=0 THEN STOP 

640 PRINT A1N+1)35" (X""53N53%)":2z STOP 


PROGRAMA Fiaicz2 


10 LET F=INT (22%eRND): LET C=INT (32%RND): LET N=0 

20 INPUT "FILA Y COLUMNA DONDE CREE QUE ESTA LA 
RANA ",1,3J 

30 LET N=N+1: LET D=SOR ((1-F)*(1—F>)+(J-C)*(J-C)) 

40 1F D=0 THEN PRINT "ENHORABUENA! ": PRINT "HAS N 
ECESITADO "3N3" INTENTOS": STOP 

50 PRINT 13","5J, "DISTANCIA "5(INT (100*D)>)/100 

60 LET K=INT (3%RND)-1:2 LET H=INT (3%RND)-—1 

7O 1F K=0 AND H=0 THEN GO TO 60 

80 LET F=F+K:z LET C=C+H 

90 1F F=-1 THEN  LET F=1 

100 IF F=22 THEN LET F=20 

110 IF C=-1 THEN LET C=1 

120 IF C=32 THEN LET C=30 

130 INPUT "PULSA UNA LETRA "5A$ 

140 GO TO 20 


PROGRAMA Fi= 


10 INPUT "ESCRIBE LA FRASE "53A$ 

20 LET L=LEN At: LET H=INT (1/32)+1 

22 LET F=L-32x*INT (1/32) 

24 FOR I=1 TO 32-F 

26 LET Atb=A$+" ” 

28 NEXT 1 

30 FOR I=1 TO H 

40 1F INT (1/2)<>1/2 THEN FPRINT A$(32x*1-31 TO 32% 
1): 60 TO 80 

50 FOR K=32*1 TO 32*1-31 STEP -1 

60 PRINT A$(k)5 

7O NEXT K 

80 NEXT 1 
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90 STOP 


10 


PROGRAMA Fi 


INPUT "LA PRIMERA CIUDAD SE HALLA EN EL HEMIS 


FERIO NORTE(N) O SUR(S) "5H5$ 
20 INPUT "LATITUD EN GRADOS , Y LUEGO EN MINUTOS 


ya = 7 E 


50 
40 


"DIS 


50 


ci 

INPUT "LONGITUD OESTE (0) O ESTE(E>)"3L% 
INPUT "LONGITUD EN GRADOS, Y LUEGO EN MINUTOS 
El 

INPUT "LA SEGUNDA CIUDAD SE HALLA EN EL HEMIS 


FERIO NORTE (N) O SUR(S) "53M$ 


60 


" d B2, 


7Q 
80 


». A D2, 


90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 


10 
20 
30 
40 
50 
60 
70 
380 
90 
100 


120 


INPUT "LATITUD EN GRADOS , Y LUEGO EN MINUTOS 
c2 

INPUT "LONGITUD OESTE (0) O ESTE(E>)"3J5% 

INPUT "LONGITUD EN GRADOS, Y LUEGO EN MINUTOS 
EL 

LET LA1=P1x*x(B1+C1 /60) /180 

LET LA2=P1%*(B2+C2/60) /180 

LET LOi=PIx*(D1+E1/60)/180 

LET LO2=P1*(D2+E2/60) /180 

IF H$=M% THEN LET B=LAi-LA2 

IF H$<>M$ THEN LET B=LA1+LA2 

IF L$=J% THEN LET A=LO01-L0O2 

IF L$<>J$ THEN LET A=LO01+L02 

LET Z=COS AX*COS B: LET Y=ATN (Z/((1-2xZ)70.5)) 
LET D=6378x*(P1/2-Y) 

PRINT "DISTANCIA EN KMS",D 

STOP 


PROGRAMA Fis 


LET P=0 

FOR I=1 TO 10 

LET X=INT (176%*RND)+40: LET Y=INT (96%RND)+40 
CIRCLE X,Y,10:z CIRCLE X,Y,20: CIRCLE X,Y,40 
FAUSE 20-2%*1 

Ls 

INPUT "DAME LAS DOS COORDENADAS ",A,B 

CIRCLE X,Y,10: CIRCLE X,Y,20: CIRELE X,Y, 40 
CIRCLE A,B,12z CIRCLE A,B, 2: CIRCLE A,B,3 

PRINT AT 21,10;"PULSE UNA TECLA ": PAUSE Oz CLS 


LET D=SOQR ( (XA) * (X-4A) + (Y—-B)x* (Y—B)) 
199 


130 IF D<=10 THEN LET P=P+10 

140 1F D<=20 AND D>10 THEN LET P=P+S 
150 IF D<=40 AND D>20 THEN LET P=P+2 
160 NEXT 1 

170 PRINT "PUNTUACION TOTAL ",P 

180 STOP 


PROGRAMA Fi 


10 INPUT "ESCRIBE El NUMERO "5N 
20 LET A$=STR$ N 

30 FOR I=1 TO LEN As 

30 IF A$(1)="." THEN 60 TO 60 

50 NEXT 1 

50 PRINT TAB (9-1)5A5% 

70 60 TO 10 


PROGRAMA Fi 


10 INPUT "ESCRIBE —H(X)",A$ 

20 INPUT "ESCRIBE —G(X)”,B5$% 

30 INPUT "ESCRIBE F1(X)"3C% 

40 INPUT "VALOR DE LA VARIABLE —X",D% 
50 LET X=VAL (D$) 

60 LET X=VAL (4%) 

7O LET X=VAL (B%$) 

80 LET X=VAL (C5$) 

90 PRINT "F(G(H(X3)3) = "5X 
100 STOP 


PROGRAMA Fi1I83 


5S>REM TARDA 45 MINUTOS 
10 FOR X=1 TO 99 
20 FOR Y=X+1 TO 99 
30 FOR Z=Y+1 TO 99 
35 POKE 23692,2550 
50 1F ZxXxZ=XXX4+4YxX*Y THEN PRINT X5TAB 83Y3TAB 163Z 
50 NEXT Z 
60 NEXT Y 
7O NEXT X 
80 STOP 


PROGRAMA Fi>2 


10 FOR N=1 TO 64 
20 FOR M=N+1 TO 9 STEP 2 
25 IF N>1 AND INT (M/N)=M/N THEN 60 TO 50 
30 IF M*M+N*N>=100 THEN GD TO SO 
20 PRINT MxM-NxN5TAB 83 2 M*N5 TAB 165 MeM+NEN 
50 NEXT M 
60 NEXT N 
70 STOP 
PROGRAmnAa F20 
S3>DIM A(4) 
10 INPUT "PRIMERA COORDENADA, ENTRE 26 Y 230",A 
20 INPUT "SEGUNDA COORDENADA, ENTRE 26 Y 150",B 
30 LET R=20 
40 CIRCLE A,B,R 
50 REM MAXIMO LIMITE 
60 LET A(1)=A: LET A(2)=B: LET A(3)=255-A: LET A(4 
)=175-—B 
7O LET K=1 
30 FOR I=2 TO 4 
90 IF A(K)>A(1) THEN LET K=1 
100 NEXT 1 
110 LET TOPE=A(k) 
120 1F TOPE>S+R THEN LET R=R+5: G0 TO 40 
130 PAUSE 30: CLS 
140 FOR X=R TO 20 STEP -5 
150 CIRCLE A,B,X 
160 NEXT X 
170 STOP 
PROGRAMA F21 
10 LET X=INT (100*RND) +1 
20 FOR I=1 TO 7 
30 INPUT "ESCRIBE EL NUMERO "35A 
40 IF A=X THEN PRINT AT 12,053"EN "315" JUGADAS HA 


LLO EL NUMERO "5X: STOP 


0 IF ABS (A-X3)<6 THEN PRINT A5TAB 45"MUY CERCA”: 
GO TO 100 

60 IF ABS (A-X)<11 THEN PRINT A5TAB 45"CERCA": GO 
TO 100 

70 IF ABS (A-X)<16 THEN FRINT A5TAB 45"UN POCO LE 
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JOS”": GO TO 100 
80 IF ABS (A-X)<21 THEN PRINT A5TAB 45"LEJOS": GO 
TO 100 
90 PRINT A5TAB 43"MUY LEJOS" 
100 NEXT 1 
110 PRINT AT 12,8;5"EL NUMERO ERA "5X2 STOP 


PROGRAMA FI 


10 DIM A(20): LET N=0 

15 PRINT "ESPERA (UN POCO" 

ZO FOR I=1 TO 10 

ZO LET X=INT (7OS5*%RND) 

40 LET A(2*1-1)=INT (X/32) 

50 LET At2*1)=X-32*INT 1(X/32) 

60 IF I=1 THEN GO TO 110 

70 FOR J=1-1 TO 1 STEP -1 

80 IF ABS (At(2*J-1)-A(2*1-1))<=1 AND ABS (A(2xJ)-A 
(2*1))<=1 THEN GO TO 30 

100 NEXT J 

110 NEXT I 

115 CLS 

120 FOR K=1 TO 25 

130 INPUT "FILA Y COLUMNA "3F35" "5C 

140 FOR I=i TO 10 

150 IF A(2*I-1)=F AND A(2*1)=C THEN PRINT PAPER O 
¿AT F,C53" "2: LET N=N+1: GO TO 180 

150 NEXT 1 

170 PRINT PAPER S55AT F,C3" "” 

180 NEXT K 

190 PRINT "HAS DESTRUIDO "3N3" SUBMARINOS" 
200 FOR I=1 TO 10 

210 PRINT FLASH 1541 A(2x*1-1),A(2*1)3"x" 
220 NEXT 1 

230 STOP 


PROGRAMA FI= 


10 LET Z=INT (9%RND)+1: LET X=INT (9*XRND)+1: LET Y 
=INT” (9%RND)+1: LET N=0 

20 INPUT "PLANTA, PISO Y HABITACION ";5A,B,C 

25 LET N=N+1 

30 IF A=Z AND B=X AND C=Y THEN PRINT 2: PRINT — FLA 
SH 15953","535B3","505” "LO CAPTURASTE EN "5N53" INTENTOS 
"3 STOP 
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PRINT 

IF A>Z 
IF AXZ 
IF A=Z 
IF B>X 
IF B<X 
IF B=X 
IF C>Y 
IF C<Y 
IF. C=Y 
LET V= 
1F V=1 


bo 

v 
<ce<<<< 
IA 
O 0 a (y 


As","3B3","5C05"” El LADRON ESTABA :" 
THEN PRINT "ABAJO", 
THEN -—PRINT "ARRIBA", 
THEN PRINT "EN ESA PLANTA", 
THEN — PRINT "A LA IZQUIERDA", 
THEN -— PRINT "A LA DERECHA", 
THEN — PRINT "EN UN PISO "3X, 
THEN —PRINT "DELANTE" 
THEN —PRINT "DETRAS" 
THEN  PRINT "EN UNA HABITACION "3Y 
INT (G6*RND)+1 
THEN —LET Z=Z+1:2 1F Z>9 THEN LET 
THEN  —LET X=X+1:3 IF X>9 THEN  LET 
THEN —LET Y=Y+1: 1F Y>9 THEN  LET 
THEN  —LET Z=2Z-1: IF Z<1 THEN LET 
THEN  LET X=X-1:2 1F X<1 THEN LET 
THEN  LET Y=Y—-13 1F Y<i THEN  LET 
: PRINT : 60 TO 20 


< AN <X Xx N 
MM 
NNNODO 


PROGRAMA FI 


LET N= 
LET X= 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
LET N= 
IF A=3 
NUMERO 
CLS 


-1F A=1 


LET P= 


O: LET P=1: LET 0=100 
INT ((0—P+1)*RND) +P 

FLASH 15xX 
AT 8,2;"ES: 1. MAYOR QUE SU NUMERO" 
AT 10,95"2. MENOR QUE SU NUMERO” 
AT 12,93"3. SU NUMERO" 

“PULSA LA TECLA CORRESPONDIENTE "5A 
N+1 


THEN  PRINT AT 20,05 FLASH 15"HE ACERTAD 


2 "5X"" EN "5N5" INTENTOS": STOP 


THEN  LET O=X-1: GO TO 20 
X+1: GO TO 20 


PROGRAMA FIS 


LET D= 
INPUT 
IF A<O 
INPUT 
LET X= 
(G6%RND 
PRINT 
IF X=N 


100 
("TIENE "53D53" PTAS, CUANTO APUESTA "354 
OR A>D THEN GO TO 20 
"QUE NUMERO ELIGES "5N 


INT (6XRND)+12: LET Y=INT (6*XRND)+1: LET Z 


+1: LET D=D-A 
AT 10,103X3"  "3Y53"  "32Z 
THEN  LET D=D+A 
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7O 1F Y=N THEN LET D=D+A 

380 IF Z=N THEN - LET D=D+A 

90 IF D=0 THEN PRINT AT 20,635 FLASH 153"ESTAS ARRU 
INADO": STOP 

100 60 TO 20 


PROGRAMA F26 


10 INPUT "NUMERO DE JUGADORES "3N 

20 DIM PIN): DIM A(N,5): DIM S(N) 

30 REM Lanzamiento de los dados 

40 FOR I=1 TON 

50 PRINT "JUGADOR NUMERO "51 

60 FOR J=1 TO 5 

7O LET A(1,J)=INT (6*RND)+1: PRINT A(1,J)3" *"s 

380 LET S(1)=St(I)+A(1,J) 

90 IF A(1,J)=2 OR A(1,J)=S THEN LET X=INT (6X*RND) 
+1: PRINT "("35X53") "532 IF X<>2 AND X<>5 THEN. LET Sí 
1)=S(1I)+X 

100 NEXT J 

110 PRINT : PRINT ” SUMA DE PUNTUACIONES "3S(1)>," 
ULTIMA CIFRA "s 

120 LET B$=STR$ S(1): LET P(I)=VAL (BS$(LEN B%$)) 

130 PRINT P(1): PRINT : PAUSE O 

140 NEXT 1 

150 REM Jugador-es ganador-es 

160 PRINT : PRINT FLASH 153"GANADOR EL JUGADOR  ";5 

170 LET MAYOR=P (1) 

180 FOR I=2 TO MN 

190 IF P(I)>MAYOR THEN LET MAYOR=P (1) 

200 NEXT 1 

210 FOR I=1 TON o 

220 1F P(I)=MAYOR THEN PRINT FLASH 1315" ";s 

230 NEXT 1 

240 STOP 


PROGRAMA FIX 


10 LET D=100 

30 INPUT ("TIENES "5D5" PTAS. CUANTO APUESTAS ")35A 

40 1F A>D OR Azx=0 THEN GO TO 30 

45 INPUT "OPCION ELEGIDA: 1.-MAYOR QUE 7  '2.-—MENOR 
QUE 7 3.-IGUAL A 7 ",S 

0 LET X=INT (RNDx6)+1: LET Y=INT (6*RND)+1: LET Z 
=X+Y 
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60 PRINT AT 10,123X3" "sY 

7O IF S=1 AND Z>7 THEN LET D=D+A: GO TO 20 

80 IF S=2 AND Z:<7 THEN LET D=D+A:z GO TO 20 

90 1F S=3 AND Z=7 THEN LET D=D+3xA: GO TO 20 

100 LET D=D-A 
110 IF D=0 THEN PRINT FLASH 15AT 18,63"ESTAS ARRU 
INADO": STOP 

120 GO TO 20 


PROGRAMA FAS 


10 FOR A=1 TO 1729” (1/3) 

20 FOR B=A TO 1729” (1/3) 

30 IF ABS (A“3+B”*3-1729)<.001 THEN PRINT As" y "s 
B53TAB 155A53"*3 + "53B3"*3 = 1729": PRINT 

40 NEXT B 

50 NEXT A 


PROGRAMA FI22 


10 INPUT "WARIACION DE FRECUENCIAS ";5E 

20 DIM A(6): DIM F(6): DIM H(6) 

30 FOR J=i TO 1000000 

40 LET I1I=INT (6X*XRND)+1 

SÓ PRINT 13"-"> 

60 LET A(I)=A(1)+1 

65 1F J=1 THEN GO TO 130 

7O FOR k=1 TO 6 

380 LET F1kK)=A(K)/J 

90 IF K<>I THEN LET H(K)=A(K)/(J-1) 

100 IF K=1I THEN LET H(kK>)=(A(1)-1) (J-1) 

110 NEXT K 

120 1F ABS (F(1)-H(1))<E AND ABS (F(2)-H(2))<E AND 
ABS (F(3)-H(3))<E AND ABS (F(4)-H(4))<E AND ABS (F(S 
3)-H1(5))<E AND ABS (F(6)-H(6))<E THEN GO TO 140 

130 NEXT J 

140 PRINT : PRINT : PRINT ” FRECUENCIAS” ” 

150 PRINT ” ANTES", "AHORA": PRINT ” =====", "= 

160 FOR P=i TO 6 

170 PRINT P5” e A 

180 NEXT P 

190 STOP 
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PROGRAMA — F=0O 


10 INPUT "NUMERO DE TERMINOS "5N 

15 PRINT "N=1 Al = 1": IF N=1 THEN STOP 
20 PRINT "N=2 A2 = 1": IF N=2 THEN STOP 
30 DIM A(N) 

40 LET Ati)=1: LET A(2)=1 

0 FOR X=3 TON 

60 LET AtX)=A(X-1)+4 (X-2) 

70 PRINT "N="5X53TAB 83"A"3X3" = "5A(X) 

80 NEXT X 

90 PRINT : PRINT. "NUMERO AURED "5A(N)/A(N-1) 


PROGRAMA F=3I 


10 INPUT "ESCRIBE LOS DOS NUMEROS "5A,B 

20 REM NUMERO DE FILAS 

30 LET X=1 

20 1F A<27"X THEN LET N=X: 60 TO 60 

50 LET X=X+1:2 GO TO 40 

60 REM IMPRIMIR LAS COLUMNAS 

65 LET S=0:2 DIM AIN): DIM B1N) 

7O FOR I=1 TON 

380 LET A(1)=INT (A/ (27 (1-1))): LET B(1)=Bx* (27 (1-1) 


90 PRINT ACI)353TAB 105B(1)5 

100 IF INT (A(1)/2)=A(1)/2 THEN PRINT TAB 205 "--—" 
= GD TO 120 

110 LET S=S+B(1): PRINT TAB 2053B(1) 

120 NEXT 1 

130 PRINT : PRINT TAB 105"RESULTADO "55: STOP 


PROGRAMA F-=32 


10 REM PASA DE DECIMAL A HEXADECIMAL 

30 PRINT TAB 05"DECIMAL"5TAB 165 "HEXADECIMAL " 

40 PLOT 0,167: DRAW 255,0: PRINT 

50 INPUT "DAME EL NUMERO DECIMAL: "5 

60 PRINT N, 

7O LET A$="" : 

80 LET C=INT (N/16): LET R=N-16xC 

90 IF C=0 THEN PRINT CHR$ ((N<=9)x1(48+N)+1(N>=10) * 
(55+N))+4$: GO TO SO 

100 LET A$=CHR$ ((R<=9)%(48+R)+(R>=10) * (S59+R) )+45$ 
110 LET N=C:z 60 TO 80 
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PROGRAMMA F== 


S>BORDER 1:PAPER 1: INkK 7:CLS 
6 PRINT "SI ME DAS UNA FRASE TE APARECERA"? ” ? "MOV 
IENDOSE EN LA PANTALLA DE"?”?”” "DERECHA A IZQUIERDA" 
10 INPUT At: CLS 
20 FOR N=31 TO O STEP -1 
-.30 IF 32-N>=LEN AS THEN LET X=LEN A$ 
40 1F 32-N>=LEN A$ THEN LET X=LEN As 
50 IF 32-Ne<LEN AS THEN LET X=32—N 
7O PRINT AT 11,N5A$(1 TO X)+" ": BEEP 0.01,0.01: P 
AUSE 10 
30 NEXT N 
90 FOR N=1 TO LEN A$ 
100 IF N+31>=LEN As THEN LET X=LEN AS$ 
110 IF N+31<LEN A$ THEN LET X=N+31 
120 PRINT AT 11,O5A$(N TO X)+" ": BEEP 0.01,0.01 
130 PAUSE 10 
140 NEXT N 
150 PRINT AT 11,03" ” 
150 6D TO 20 


PROGRAMA F «4 


47REM MULTIPLICA 
3 BORDER 1: PAPER 1: INK 72 CLS 
10 DIM Af6): DIM P(3,3): DIM L (3) 
15 LET FA=0 
ZO FOR X=1 TO 6 
30 LET Af(X)=INT (RND*10) 
40 NEXT X 
50 IF A(1)=0 OR A(4)=0 THEN GOD TO 20 
60 PRINT AT 5,1054(133" "5A(2)33" "3A(3) 
7O PRINT AT 7,103A41(4)33" "5A(5)3" "5A(6) 
80 PRINT AT 8,93 " -—-——--—-— y 
90 FRINT AT 6,8;3"Xx" 
935 LET Z=2 
100 FOR Y=1 TO 3 
110 LET L(Y)=0: LET Z=2Z+2 
120 FOR X=3 TO 1 STEP -1 
130 LET P(Y, X)=At7-Y)x*A1X) 
150 GO SUB 300 
160 PRINT — FLASH 15AT 7+2x*Y, 12+2x*X-2Z23" "3 
170 INPUT "DAME LA CIFRA",S53 FLASH O 
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175 IF S=F(Y,X) THEN PRINT AT 20,25"ESTA BIEN 
"5323 PRINT AT” 74+2xXY, 1 2+2x*X-Z253P(Y,X)5:2 GO 
TO 180 
177 FRINT AT 20,.253"NO,LA RESPUESTA ES: "5PF(Y,X)33:2 P 
RINT AT” 7+2*Y, 12+2x%X-Z25P(Y,X)5: LET FA=FA+1 
180 NEXT X 


185 INPUT "LLEVAS?..... “¿K 
1396 IF K=L(Y) THEN FPRINT AT 20,25"BIEN 
*=2 60 TO 190 


187 PRINT AT 20,25 "ERROR LLEVAS: "3L (Y)3" 

190 IF L(Y)><>0 THEN PRINT AT 7+2x*Y,12+2x*X-Z3L (Y) 

200 NEXT Y 

210 PRINT AT 14,33 " -—-----=====--- " 

220 LET A=P(1,3): LET B=P(1,2)+P(2,3): LET C=P(1,1) 
+PF(2,2)+P(3,3)+INT (B/10): LET D=P(2,1)+P(3,2)+INT ( 
C/10)+L (1): LET E=P(3,1)+INT (D/10)+L (2): LET F=L (3) 
+INT (E/10) 

230 FOR R=1 TO 6 

235 READ O 

240 FRINT FLASH 15087 15,16-2*R3" " 

245 INPUT "DAME LA CIFRA",S: FLASH O 

246 1F S=0 THEN PRINT AT 20,253"ESTA BUENO 

"z GO TO 260 

250 PRINT AT 20,2;"ERROR LA RESPUESTA ES:"530: LET F 
A=FA+1 

260 PRINT AT 15,16-2*R303" "; 

265 DATA A,B-INT (B/10)x*x10,C-INT (C/10)*10,D-INT (D 
/10)*10,E-INT (E/10)x*10,F 

270 NEXT R 

271 RESTORE 235 

275 1F F=0 THEN PRINT AT 15,43" " 

280 PRINT AT 20,2;"EL NUMERO DE FALLOS HA SIDO: "5FA 

285 INPUT "SI PRESIONAS UNA TECLA TE PONGO OTRA "50 
Q: CLS : 60 TO 1 

290 STOP 

300 LET M=INT ((P(Y,X)+L(Y))/10) 

310 LET P(Y,X)=P(Y, X)+L (Y)—10%M 

320 LET L(Y)=M 

330 RETURN 
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PROGRAMA FIS 


S5REM HEXA-DEC 


10 BORDER 1: PAPER 1: INK 7: 
20 PRINT "HEXADECIMAL","DECIMAL”” * 


25 FLOT 0,167: DRAW 255,0 


CLS 


30 INPUT "NUMERO EN HEXADECIMAL "5 


40 LET M=LEN Ab: LET S=0 
50 FOR X=M TO 1 STEP -1 
60 LET P=CODE AS$(X) 


7O 1F P>70 OR P<48 THEN GO TO 30 
80 IF P>57 AND PX2<65 THEN GOD TO 30 
90 1F P<=57 THEN LET S=S+167 (M-X)xXVAL A$(X) 
100 1F P>=65 THEN LET S=S+167 (M-X) * (P-553) 


110 NEXT X 
120 PRINT A5$,S 


130 INPUT "OTRO (S/N) "3545 
140 IF A$="S" THEN GO TO 30 


150 STOP 


PROGRAMA Fo 


S REM MORSE 1 


10 BORDER 1: PAPER 12 INK 7: 


15 POKE 23658,8 


20 PRINT FLASH 15AT 0,83” TRADUCTOR 


40 PAUSE O 

SO LET A$=INKEYS 

60 IF A$="A" THEN PRINT 
Oz PRINT 

70 1F A$="B" THEN PRINT 
Oz: GO SUB 1000: PRINT 

80 IF A$="C” THEN PRINT 
Oz GO SUB 1200: PRINT 

90 1F As="D" THEN PRINT 
Oz: GO SUB 1000: PRINT 

100 IF At$="E" THEN PRINT 
Oz PRINT 

110 IF A$="F" THEN PRINT 
O: GO SUB 1200: PRINT 

120 IF A$="G" THEN PRINT 
Oz GO SUB 1400: PRINT 

130 IF At$="H" THEN PRINT 
O: GO SUB 1000: PRINT 


CLS 


"3A$+" 


.” +FAt+ 2. 


Ae" 
"+as+" 
"Age" 
AA" 
age" 


.. +A+F+ . 


LINE A$ 


GO 


GO 


GO 


GO 


GO 


GO 


60 


GO 


MORSE 1.323.323 


SUB 


SUB 


SUB 


SUB 


SUB 


SUB 


SUB 


SUB 
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140 1F At="1" THEN PRINT ?3" "+A3$+" 
O: PRINT 

150 IF A$="J" THEN PRINT ?73" "+A3+" 
O: GO SUB 1300: PRINT 

160 IF A$="K" THEN PRINT ?3" "+A$+" 
O: GO SUB 1500: PRINT 

170 IF A$="L" THEN PRINT *3" "+A$+" 
O: GO SUB 1000: PRINT 

180 1F A$="M" THEN PRINT 73” "+A$+" 
O: PRINT 

190 IF A$="N" THEN PRINT ?3" "+A3$+" 
Oz: PRINT 

200 IF A$="0" THEN PRINT 73" "+A9$+" 
O: GO SUB 1500: PRINT 

210 1F A$="P" THEN PRINT ?3" "+A$+" 
Oz GO SUB 1200: PRINT 

220 IF A$="0" THEN PRINT ?3" "+A$+" 
O: GO SUB 1100: PRINT ( 

230 IF A$="R"” THEN PRINT 73" "+A59+" 
Oz GO SUB 1400: PRINT 

240 1F A$="S" THEN PRINT 73" "+A9+" 
Oz GO SUB 1400: PRINT 

250 IF A$="T" THEN PRINT ?*3" "+A$+" 
Oz PRINT 

260 1F A$="U"” THEN PRINT ?*3" "+A3$+" 
Oz GO SUB 1500: PRINT 

270 1F A$="V" THEN PRINT ?*3”" "+A$+" 
Oz GO SUB 1100: PRINT 

280 IF A$="W" THEN PRINT 73" "+95$+" 
Oz GO SUB 1500: PRINT 

290 IF A$="X" THEN PRINT ?3" "+A$+" 
Oz GO SUB 1100: PRINT 

300 1F A$="Y" THEN PRINT ?3" "+A$+" 
O: GO SUB 1300: PRINT 

310 1F A$="Z" THEN PRINT ?3" "+As+" 
Oz GO SUB 1000: PRINT 

320 IF ab="0" THEN PRINT ?*3" "+a$+"” 
O: GO SUB 1300: GO SUB 1500: PRINT 

330 IF a$="1" THEN PRINT ?3" "+as$+"” 
O: GO SUB 1300: GO SUB 1500: PRINT 

340 1F a$="2" THEN PRINT ?*3" "+a$+" 
O: GO SUB 1300: GO SUB 1500: PRINT 

350 1F a$="3" THEN PRINT 73" "+a$+" 
O: GO SUB 1100: 60 SUB 1500: PRINT 

360 IF a$="4" THEN PRINT ?3" "+a$+" 
Oz GO SUB 1000: GO SUR 1500: PRINT 

370 1F a$="5" THEN FRINT ?3" "+as+" 


210 


GO 


GO 


GO 


GO 


GOD 


0 


GO 


GO 


GO 


GO 


GO 


GO 


GO 


G0 


GO 


60 


GO 


60 


GO 


GO 


GO 


GO 


GO 


GO 


SUB 


SUB 


SUB 


SUB 


SUB 


SUB 


SUB 


SsuB 


SsuB 


SUB 


SUB 


SUB 


SUB 


SUB 


SUB 


SUB 


SUB 


SUB 


SUB 


SUB 


SUB 


SUB 


SUB 


SUE 


Oz GO SUB 1000: GO SUB 1400: PRINT 

380 IF a$="6" THEN PRINT ?3" "+a$+" "3: GO SUB 120 
O: GO SUB 1000: GO SUB 1400: PRINT 

3790 1F at="7" THEN PRINT *353% "+a$+" "5: GO SUB 130 
Oz GO SUB 1000: GO SUB 1400: PRINT. 

400 IF a$="8" THEN PRINT 73" "+a$+" "5: GO SUB 130 
O: GO SUB 1200: GO SUB 1400: PRINT 

410 IF a$="9" THEN  PRINT ?*3" "+a$+" "53: GO SUB 130 
O: GO SUB 1300: GO SUB 1400: PRINT 

420 IF A$=" " THEN STOP 

999 GO TO 40 

1000 FPRINT ".."5: BEEP 0.1,30: BEEP 0.1,30: RETURN 
1100 PRINT ".-"5: BEEP 0.1,30: BEEP 0.3,30: RETURN 
1200 PRINT "-."53: BEEF 0.3,30: BEEP 0.1,30: RETURN 
1300 PRINT "-—"53: BEEP 0.3,30: BEEP 0.3,30: RETURN 
1400 PRINT "."53: BEEF 0.1,30: RETURN 

1500 PRINT "—"5: BEEP 0.3,30: RETURN 


PROGRAMA FS 


S-BORDER O:=PAFER 0: INK 7:CLS 


10 
20 
30 
40 
50 
60 
65 
7O 
30 
20 


10 
20 
30 
3 
40 
50 
60 
TO 
80 


LET 
LET 
FOR 
LEFT 


a=RND*100: LET b=fRND*x100 
t=321 LET z=80 

n=0 TO 2x*P1 STEP 2x*PF1/720 
r=zXxSIN (nx*t) 

LET x=rx*COS (axn) 

LET y=r*SIN (bx*n) 

PLOT x+127,y+86 

NEXT n 
PRINT a,b 


FAUSE 50: GO TO 10 


PROGRAMA F=83 


REM MORSE 2 

POKE 23658,8: POKE 23609,100 
BORDER 1: PAPER 12 INK 7: CLS 
PRINT AT 0,105 FLASH 153"MORSE 2"”” 
DIM A$(36,5) 

FOR X=1 TO 36 

READ A$(X) 


8s DATA Mo.—. A o A A A A IAN 


TN TI CN TI TN "o. CN Y] . 0. .” 5 n o. 
- = 2 - 2 = 


: -. E se. - 2 ss. 


E , . 

90 PAUSE O: LET B$=INKEYS$ 

100 LET C=CODE B$-54:2 1F C<=0 THEN LET C=C+7 
110 PRINT E$53" "5A$(0)3" "s 

120 FOR Z=1 TO S 

130 LET D=CODE A$(C,Z) 

140 BEEP (D=45)+*0.3+(D=46)x0.1,40 

150 NEXT Z: GO TO 83 


FROGRAMA —F=*% 


S>BORDER 1:PAPER 1: INK 7:CLS 

6 PRINT " QUINIELAS CON PROBABILIDADES”? ” >” 
9 PRINT "SE TRATA DE ASIGNAR A CADA” 

10 PRINT "PARTIDO UNA PROBABILIDAD” 

11 PRINT "PARA CADA RESULTADO”? ” 

13 PRINT "NO ADMITE PROBABILIDADES CON" 

14 PRINT "MAS DE DOS CIFRAS DECIMALES"?” >” 


16 PRINT AT 18,05"PRESIONE TECLA PARA CONTINUAR” 


17 INPUT 0O$: CLS 


19 DIM A(14): DIM B(14): DIM C(14): DIM A$(14): DI 


M D(14) 


38 PRINT : PRINT TAB 115"PROBABILIDAD VARIAN—" 
40 PRINT TAB 153"PARTIDOS"5TAB 1153"1"5TAB 1653"X"3TA 


B 213"2 EST 


Toa 
31 DATA 4,36,68,108, 148 


60 FOR X=1 TO S: READ a: PLOT a,4: DRAW 0,154: 


TX 
61 DATA 2,74,114,154,194 
70 FOR X=1 TO 14: READ a 
80 PRINT AT a,55Xz NEXT X 
90 DATA 4,5,6,7,9,10,11,12,14,15,16,18,19,2Z0 
100 FOR X=1 TO 14 


110 INPUT ("PROBABILIDAD DEL 1 EN 
ARTIDO:"3X5" ")5A1X) 
115 INFUT ("PROBABILIDAD DE LA X EN 


ARTIDO:"3X5" ")5B1(X) 

120 IF LEN STR$ A(X)>4 OR LEN STR$ B(X)>4 THEN 
TO 110 

130 IF A(X)>1 OR B(X)>1 OR A(X)<0 OR B(X)<0 OR 
+B(X)>1 THEN 650 TO 110 

150 READ A: LET C(X)=1-A(X)-B(X):2 IF C(X)<0.01 
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50 FOR X=1 TO S: READ az PLOT 2,az DRAW 253,0: 


NEX 


NEX 


LET C(Xx)=0 

160 PRINT AT A,103A005AT A,153B00O5AT A,203C(X) 
170 NEXT X 

180 DATA 3,4,5,6,8,9,10,11,13,14,15,17,18,19 
185 LET VA=14 

190 FOR Z=1 TO 14: LET D(Z)=INT (RND*100+1) 

200 LET A$(Z)="X" 

210 IF D(Z)<=100x*A(Z) THEN LET A$(Z)="1"z LET VA=V 
A-1 

220 IF D(Z)>100x*(A(Z)+B1Z)) THEN LET A$(Z)="2" 
230 NEXT Z 

240 PRINT AT:1,293VA3" " 

250 RESTORE 180 

260 FOR Z=1 TO 14: READ A 

270 PRINT AT A,275A$1Z) 

280 NEXT Z 

285 BEEP 0.5,0.8 

290 FAUSE O: 60 TO 185 


PROGRAMA FOO 


SPRINT "ESTE PROGRAMA DIBUJA TODO LO QUE*"sz”* 5"0Q 
UIERAS, SOLO TIENES QUE GUIAR EL”"53*"5"PIXEL CON AYUDA 
DE LAS TECLAS"35””5"QUE ESTAN ALREDEDOR DE LA F:"35”” 


6 PRINT "R ARRIBA T DERECHA Y ARRIBA"5**3"G 
DERECHA B DERECHA Y ABAJO"5””5"V ABAJO c 1 
ZQUIERDA ABAJO"5?”5"D IZQUIERDA E IZQUIERDA ARRIBA 
7 POKE 23658.8 

10 INPUT "COLOR DE TINTA "57 

ZO INPUT "COLOR DE PAPEL "5P 

3O INPUT "COLOR DEL BORDE ";5BO 

40 BORDER BO: PAFER Pz INK Tz CLS 

100 INPUT "COORDENADAS COMIENZO "3X3"  "5Y 

110 INPUT "BORRAR(1) O DIBUJAR (0) "3KE 

120 GO SUB 485 

200 LET A$=INKEYS$ 

220 LET X=X+(A$="G" OR A$="T" OR A$="B")-(A$="D" OR 
A$="E" OR A$="C") 

ZO LET Y=Y+(A$="R" OR A$="E" OR A$="T")-(A$="V" OR 
A$="C" OR A$="B") 

280 IF A$="P" THEN (60 TO 100 

290 IF A$="0" THEN 60 TO 100 

300 IF A$="L" THEN G0 TO 400 

310 1F A%="kK" THEN GO SUB 460 
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315 IF A$="S" THEN 60 TO 490 

320 IF X<0 THEN LET X=0 

330 IF X>255 THEN LET X=255 

340 IF Y<0 THEN LET Y=0 

350 IF Y>175 THEN LET Y=175 

360 PLOT  INVERSE B,X, Y 

380 PAUSE O: GO TO 200 

400 INPUT "ES CONTINUACION? "5V% 

410 IF V$="S" THEN GO TO 430 

420 INPUT "COORDENADAS COMIENZO ”"5X3" 


430 INPUT "DERECHA-ARRIBA "5DD3" "5 AA 
440 DRAW DD, AA: LET X=X+DD: LET Y=Y+AA 
450 GO SUB 485: GO TO 200 


460 INPUT "CENTRO Y RADIO:3"53M53"  "53N5”" 


470 CIRCLE M,N,R 
480 GO SUB 485: RETURN 


485 PRINT $Ki5"POSICION:P, LINEA:L CIRCULO:K 


RAR, DIBUJAR :0 ¿SALVAR:S": RETURN 
490 INFUT "NOMBRE DEL DIBUJO: "305% 
500 SAVE "0%"SCREEN$ 
510 GD TO 100 


PROGRAMA FI 


PLOT X, 


, BOR 


10 PRINT TAB O5"BASE S5"5TAB 105"BASE 7"5TAB 205 "DE 


CIMAL": PRINT 
40 PLOT 0,165: DRAW 250,0 
50 FOR a=1 TO 9 
6560 FOR b=0 TO 9 
70 FOR c=0 TO 9 


30 IF 12x*a=24x*c+b THEN PRINT TAB i5asb53csTAB 1l13c 


5bja5TAB 223c+5x*b+25*a: PRINT 

90 NEXT c 

100 NEXT b 

110 NEXT a 

120 STOP 


FROGRAMA FAZ 


10 BORDER 1: PAPER 1: INK 72: CLS 


15 FOR H=0 TO 7: READ Az POKE USR "N"+H, Az NEXT H 


16 DATA 62,0,34,50,42,38,34,0 
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20 PRINT — INVERSE 1547 2,.,55"CALENDARIO PERPETUO"? ” 


3O INPUT "DIA "53D3" MES "3M53" ANO "5 

35 LET X=A-100*INT (A/100): LET Y=(A-X)/100 

40 IF D<0 OR D>31 OR D<>INT D OR M<0 OR M>12 OR M< 
>INT M OR (M=2 AND D>29) OR A<1800 OR A>2100 THEN 6 
O TO 30 

60 FOR L=1 TO 12: READ A$,B,C 

70 1F L=M THEN GO TO 105 

80 NEXT L 

90 DATA "ENERO”,31,0, "FEBRERO", 28,3,"MARZO",31,3," 
ABRIL",30,6,"MAYO",31,1, "JUNIO", 31,4 

100 DATA "JULIO",31,6,"AGOSTO",31,2, "SEPTIEMBRE", 30 
5, "OCTUBRE",31,0, "NOVIEMBRE",30,3, "DICIEMBRE",31,5 

105 IF M=2 AND X<>0 AND (A/4=INT (A/4)) THEN LET B 
=B+1 | 

106 IF M=2 AND X=0 AND (Y/4=INT (Y/4)) THEN LET B= 
E+1 

110 IF D>B THEN RUN | 

140 LET S=X+INT (X/4)+D+C+1(A>2000) * (-2)+(82 1900) * (+ 
2) 

145 IF (A/4)=INT (A/4) AND X<>0 AND (M=1 OR M=2) TH 
EN LET S=S-1 

146 1F A/4=INT (A/4) AND X=0 AND Y/4=INT (Y/4) AND 
(M=1 OR M=2) THEN LET S=S-2 

150 LET R=S-7*INT (5/7) 

155 RESTORE 200 

170 FOR Z=1 TO 7: READ F$,T 

1890 IF T=R THEN PRINT "EL "5D3" DEL "3" MES "3M3" 
DE "5: PRINT >"FUE,ES O SERA...":z PRINT >”: PRINT A 
T 12,1053F$ | 

190 NEXT Z 

200 DATA "DOMINGO", O, "LUNES", 1, "MARTES", 2, "MIERCOL 
ES",3, "JUEVES", 4, "VIERNES", 5, "SABADO", 6 

210 PAUSE Oz RUN 


PROGRAMA FAS 


10 REM MASTER MIND 

20 LET A=INT (RND*9)+1: LET B=INT (RNDx*10) 

30 LET C=INT (RND*10): LET D=INT (RNDx*10) 

40 IF A=B OR A=C OR A=D OR B=C OR B=D OR C=D THEN 
60 TO 20 

50 FOR N=1 TO 9 

60 INPUT Uz" "3V33" "5x3" "5Y 

70 LET CA=0: LET H=0 
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73 

=18) 

90 
100 
110 
120 
130 
140 
150 
152 


155 


INT "HAS ACERTADO EN "3N5" INTENTOS": STOP 


160 
170 
180 


10 


FRINT 3 us pil "sv; $.“ ">5X5 11] "SY; $." ES 


IF A=U8 THEN LET CA=CA+1 

IF A=V OR A=X OR A=Y THEN LET H=H+1 
IF B=V THEN LET CA=CA+1 ; 

IF B=U OR B=X OR B=Y THEN LET H=H+1 
IF C=X THEN LET CA=CA+1i 

IF C=U OR C=VW OR C=Y THEN LET H=H+1 
1F D=Y THEN LET CA=CA+1 


IF D=U OR D=V OR D=X THEN LET H=H+1 


PRINT "CADAVERES:"5CA5"” HERIDOS: "5 


1F A=U AND B=V AND C=X AND D=Y THEN PRINT : PR 


NEXT N 
PRINT 7??*5"EL NUMERO ERA "53A5B5C5D 
STOF 

FROGRATMA FA 


PAPER 1: INK 6: BORDER 5 


20 PLOT 1,20: DRAW 254,0: DRAW 0,136: DRAW -254,0: 
DRAW 0.-136 


30 
40 
PLOT 


50 


FLOT 128,20: DRAW 0,136 


PLOT 0,532 DRAW 50,17: DRAW 0,36: DRAÁW -50,17: 


50,70: DRAW 0,36,PI1 


PLOT 255,53: DRAW -50,17: DRAW 0.36: 


z PLOT 205,70: DRAW 0, 36, -—PI 


7O 
30 
90 
93 
100 
110 
120 
130 
140 
150 


0 
NJ. 


10 
100 
z10 
220 


230 
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FOR x=1 TO 49 

LET y=34-17*x/58 

PLOT x,88-—y: DRAW O, 2*y 
PLOT 255-x.88-—yz DRAW O, Z2*y 
NEXT x 

FOR x=-18 TO 18 

LET y=SDR (18 2-xx*x) 

PLOT 128+x,.388-—y: DRAW 0, 2*y 
NEXT x 

sToP 


—_—— 


PROGRAMA FOIS 


PAPER 1:BORDER 1:INK 7:CLS 

PRINT "Grafica de la funcion SENO" 
GO SUB 600 

FOR a=0 TO 2Z2x*xF1 STEP F1I/20 

PLOT 29,100 

LET x=27*C0S5 a 


DRAW 50,17 


na 
ds 


240 


LET y=27*SIN a 
OVER 1: DRAW x.yz DRAW O.—yz DRAW —x.0: PLOT 


z7 


+x.100+y:2 DRAW 85+170*a/ (2*P1)-(29+x),0O:z DRAW O, —y 


300 
305 
310 


FAUSE 50 
FLOT 29,100 
OVER 1: DRAW x.yz DRAW O,-yz DRAW —x.02 PLOT 


29 


+. 100+yz DRAW 85+170*a/ (2*P1)-(29+x),0: DRAW O, —y 


315 
316 
E 
322 
323 
¿25 
ulsa 
330 
332 
O 
350 
360 
370 
380 
390 
400 


PLOT 85+170*a/ (2*PI), 100+y 

NEXT a 

FOR a=0 TO Z2x*P1 STEF PI/85 

PLOT 85+170x*a/ (2*PF1), 100+27%*SIN a 
NEXT a 


PRINT AT 18,23"para ver la grafica del COSENO p 


una tecla” 

PAUSE O 

CcLS 

PRINT "Grafica de la funcion COSENOD" 

GO SUB 600 

FOR a=0 TO Zx*xXPI STEF PI/20 

FLOT 29,100 

LET x=27*COS a 

LET y=27x*SIN a 

OVER 1: DRAW x.yz DRAW O,—yz DRAW —x.0: PLOT 


+170%a/(2x*P1),100+4x: DRAW 0,-x 


410 
420 
0 


PAUSE 50 
PLOT 29,100 
OVER ld: DRAW x.y DRAW 0,—yz DRAW —x,0: PLOT 


+170*%a/ (2*P1),100+x: DRAW 0,-x 


440 
450 
451 
452 
453 
460 
600 
510 
540 
550 
660 
661 
662 
563 
564 
5665 
670 


PLOT 85+170*a/ (2*P1),100+x 
NEXT a 

FOR a=0 TO 2x*F1 STEF FI/85 
FLOT 85+170*a/(2*P1), 100+27*C05 a 
NEXT a 

STOP 

PLOT 85,127 

DRAW 0, -54 

PLOT 85,100 

DRAW 170,0 

CIRCLE 29, 100,27 

PRINT AT 6,93”"1" 

PRINT AT 12,83"-1" 

PRINT AT 10,113"0” 

PRINT AT 10,203"PI" 

PRINT AT 10,293"2PI" 
RETURN 


85 


85 
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FROGRAMA FOIS 


S BORDER 1:PAPER 1: INkK 7:CLS 


su valor 


110 INPUT 


so "3k 


10 FRINT "RESOLUCION DE TRIANGULOS"” 

ZO PRINT AT 4,13"Los datos que conoces son:" 

30 PRINT AT 7,03”1 Los tres lados” 

40 PRINT "2 Dos lados y el angulo compren dido” 

50 PRINT "3 Dos lados y el angulo opuesto a uno 
de ellos” 

60 FRINT "4 Un lado y dos angulos" 

7O INFUT "Pulsa la tecla correspondiente a tu caso 

"n 

30 CLS 

90 IF n=1 THEN 60 TO 500 

91 1F n=2 THEN (GO TO 700 

93 IF n=3 THEN (GO TO 900 

100 INPUT "Llama a al lado que conoces. Cual es 


ya 


"Si conoces Á pulsa 1, pulsa 2 en otro ca 


120 IF k=2 THEN GO TO 300 


130 INPUT "Cual es el valor de A.Primero dame los y 
rados, luego los minutos y .por ultimo, los segundos 
"SAS 


140 INPUT "Sea B el otro angulo. 


mero los 
1,y2,y3 
150 LET 
160 LET 
170 LET 
180 LET 
190 LET 
200 LET 
210 LET 
220 LET 
230 LET 


Dame su valor 
grados,luego los minutos y los segundos 


pri 


> y 


2= (1 1+x2/60+:3/3600)*P1/180 
y=1y1+y2/60+y3/3600)*P1/180 
2=P1-x-—y 

z4=180x*z /P1 

z1=INT (24) 

22=INT (60*1(z4-21)) 

z3=INT ((24-z1-1(22/60))*3600) 
b=(SIN y)x*a/ (SIN ») 

c=(SIN 2)x*a/ (SIN x) 


240 GO TO 2000 


300 INPUT 
dame sus grados, 
5y1,y2,y3 
INPUT "Sea C el otro angulo. Frimero da los gra 
luego los minutos y segundos 


310 
dos, 
320 
330 
340 
350 
360 


LET 
LET 
1-E:E 
LET 
LET 
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Primero 
luego los minutos y los segundos "” 


” 


"Sea B uno de los dos angulos. 


A A 
y=1(y1+y2/b60+y3/3600)*P1/180 
z=1íz21+22/60+23/3600)*P1/180 
x=P1-y-z 

x 4=180%*»x /PI 

x1=INT (x4) 


370 LET x2=INT (60% (x4-1)) 

380 LET x3=INT ( (x4-x1-(x2/60))+3600) 

390 GO TO 220 

500 INPUT "Dame el valor de los tres lados ";3a,b,c 
510 LET x=ACS (((b*b)+(cx*c)-(aka))/(2bx*Cc)) 

520 LET y=ACS ((laka)+(cxc)—(bxrb))/(2Z*ar*c)) 

530 LET x4=180%x/PFI]1 

540 LET xi=INT (x4) 

5590 LET x2=INT (60% (x4-:1)) 

560 LET x3=INT ((x4-x1- (2/60) )*3600) 

570 LET y4=180*y/P1 

580 LET y1=INT (y4) 

5790 LET y2=INT (60*(y4-y1)) 

600 LET y3=INT ((y494-—y1-(y2/60))*36500) 

610 GO TO 170 

700 INPUT "Dame los dos lados. En primer lugar el 
mayor de ellos ";3a,b 

710 INFUT "Dame los grados, luego minutos y segun 
dos del angulo comprendido "3z1,22,2% 

715 LET z2=1(z21+22/60+23/3600)*F1/180 

720 LET c=fla*2+b”2-2*a*b*COS 237.5 

730 LET y=ASN ((b*SIN 2)C) 

740 LET x=P1-y-z 

750 GO TO 530 

900 INPUT "Conoces a,b,.,B. Dame primero a, yluego b 
"5a,b 

910 INPUT "Dame los grados, luego los minutos y se 
gundos de B ";3yl1l,yZ2Z,yxX 

920 LET y=(y1+y2/60+y3/3600)*F1/180 

930 IF y<P1/2 AND bia*SIN (y) THEN PRINT "No hay s 
olucion”:= STOP 

940 1F y>FI/2 AND biza THEN PRINT "No hay solucion 
*:* STOP 

950 IF y<PI/2 AND b>a*SIN (y) AND bia THEN GO TO 1 
000 

7960 LET x=ASN (ax*SIN (y)/b) 

970 60 TO 530 

1000 LET t=PI-ASN (ax*SIN (y)/b) 

1010 LET t4=180*t/PI 

1020 LET ti=INT (44) 

1030 LET t2=INT (60*(t4-t1)) 
$1040 LET t3=INT ((t4-ti-1(t2/60))*3600) 

1050 LET u=PI-t-y 

1060 LET us=1380*u/PI 

1080 LET ui=INT (u4) 

1090 LET u2=INT (60% (u4—ui)) 

1100 LET u3=INT ((u4—ui- (u2/60) ) 3600) 
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220 


1110 
1120 
1130 
1140 
1150 
11650 
1170 
1180 
1190 
1200 
1210 
1220 
2000 
2010 
Z020 
2030 
2040 
2050 


LET d=(SIN u)x*a/ (SIN t) 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
GO TO 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
STOP 


"Primera solucion' 


"LADOS”, "ANGULOS" 


"a="5a, "A="St15 “a 
” ="5b," ="53y153"g 
"c="53d, tests "a 


"Segunda solucion' 


960 
"LADOS”, "ANGULOS” 


"a="3a.,"A="3x153"g 
"b="3b,"B="53y13"g 
"c="30,."C="3213"9g 


CAPITULO 1: 


LE 
1.2, 


INDICE 


POBERIDAS usar 
ALSOFIIDOS 1 rcdedds 
EJERCICIOS 3 corccros tenía 


................—... 0... 0. .o....—..«.. 


... o... ...... 0.0... 0o.o<.o o... c.o.o<.s.0. 


CAPITULO 2: EMPEZANDO (CON EL. BASIC eniocaiasncresenin es 0% 


21, 
Zil, 
Zi» 
2.4. 
Za: 


Variables y constantes........ 
Instrucción o sentencia ....... 
Operadores aritméticos....... 


....1..oÁ..9.0.o....>2.2x.o2..2a.o.o . ..2..2.2.02Á2.0b..8. .. ... . . 


Empleando el ordenador como calculadora: PRINT ......... 


INStTrUCCIón LB ios 
EJERCICIOS dodo 


CAPITULO 3: PRIMEROS PROGRAMAS 


Jl 
EA 


................... .<.- 0... . 0.0... 


Empezando a programar: RUN, NEW, STOP, INPUT ........ 


Instrucción LIST .. cias denia 


.........—o... +... 0.o.o..«<.. 0.0.0. 0... 


3.3. Tres nuevas instrucciones: REM, CLS, CLEAR .............. 
3.4. Corrección de errores en el Spectrum: EDIT...............- 


CAPITULO 4: SALTOS 


4.1. 
4.2. 
4.3, 
4.4, 


CAPITULO 5: BUCLES 


5 
SA 
ÑO 


EJERCICIOS irritar 


.. . ........ 0... 0... 0.0. 


... ....... o... o... o. ..o<.<.o<... 


...... o... ........0..—.0.00.0. 00... 


Saltos incondicionales: GOTO, BREAK, CONT .............. 


Operadores de relación ....... 
Decisiones: IF-THEN ......... 


.e..—2—.—12..oo o... o... ... 0... ..o.0..00.0..0.0. 


Operadores lógicos: OR, AND, NOT... «o. ooo... ...oomesszo 


EJERCICIOS <oorvrrasdaiaes 


.. . .. ...9Á.0..o. o... 


FOR-NEXT 0 ide 
STEP tor 
Bucles encajados............. 
EJERCICIOS vto 


e. oo... ......0.o. 0.0.0.9. 0.90... .o0.. 
e... ............ 0... ..«—-.—...0.<.020. 
e... ..........«..—-.«<.-.—-.—-.<—.— 0.0.0.0... 0... 
........... ..—-.—-.—-.—- 0. .2..92.o..0.2.06X02 0... 0... 
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CAPITULO 6: FUNCIONES DE. BIBLIOTECA ..cesovcion ica 51 
6,1. "Presentación en pañtalla TAB AT: ¿corras es 51 
6.2. Funciones de biblioteca: SGN, ABS, SOR, EXP, LN, SIN, 

COS, TAN ATEN CASN ALS a o tt aa 53 

6.3. Definición de función: DEF FN ...........o.ooooocoocoomoo.o.. 55 
PROGRAMAS PROPUESTOS: 053 ida bes: 
CAPITUEO TRAZAR oidos vr 61 
Tia AN iria 61 

Ez RAND AS A 63 

13, RANDOMIZE ¿0 idas ss 65 
PROGRAMAS PROPUESTOS .. vociinmcacii dadas 66 
CAPIEULO. Ss CADENAS ic a AS 71 
31: “Cadenas de CAPACES ad 71 

32. COLO ASC ad E Ni ade TZ 

8.3. Funciones de cadena: LEN, CODE, CHR$, VAL, STR$....... 73 

8.4. Troceado de cadenas en el Spectrum: TO .....o.o.o.o..ooooo.... 15 
PROGKAMAS PROPUESTOS andas ea a 77 
CAPTFURO' 9 DIMENSION — our rd 79 
Li. ¡LISTAS DIE 0 ADA EA 79 

2 NDFDENACIONES <a d  i is sis 81 

13d, IMA ICO ios yl E 83 

9.4. Cadenas dimensionadasS ...........ooooococoococonnrmmo.... 86 
PROGRAMAS PROPUESTOS ......o.ocooccooonicorncio scr. 87 
CAPTTUEGLO SUBRUTINAS cuisine 91 
IU ¡GUOSOBD-RETURN dia AR ad 91 
10%. Saltos Mmollples iii o La 94 
PROGRAMAS PROPUESTOS ¿ouvir 94 
CAPITULO dE READ. DATA RESTORE ciar ais 97 
LA READ DATA 00 AAA AAA A 
EZ: RESTORE 05d Ús 100 
PROGRAMAS .-PROPUESTOS. comisaria .. 101 
CAPITULO 12: LA MEMORIA EN EL ORDENADOR ................ 103 
12.1. Sistemas de numeración: BIN .............. PA 103 
IZZ:. Memoria: ROM-RAM ¿04050 AAA aer 104 
123... PORE-PEER uvas avila ts ds 105 
124, Zonas de la memona:RAM ocurra ddr ras . 106 
12.5. Algunos POKES interesantes: «..iieciss cirrosis car 107 
CAPITULCMUIS TIEMPO. COLOR: SONIDO oia cdas 111 
13.1. Tiempo: INKEY$ PAUSE ... rt eS aaioo a COS asta E 111 
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EZ. Somo: BREP: o a ines 114 


133.: Colors: PAPER. BORDER. INK os iio ocaros pla e 115 
13,4. ¿-BRIGHI, FLASH, INVERSE -OVER «00 ora cui 116 
13,3: ALTR SCREENS ona oca 17 
PROGRAMAS PROPUESTOS cusisisascs RE 119 
CAPITUEOTIA GRAFICOS: cuidas is AAA 121 
14.1. Caracteres gráficos del teclado eii 121 
14.2. Gráficos definidos por el usuariO .........oooooooommomm.... 122 
1430 «PEOT, CIRCLE, DRAWieco occ IRE e 124 
144. POINT rara a a oe 127 
PROGRAMAS. PROPUESTOS viii lena a iaa 128 
CAPITULO 15: MAS PROGRAMAS PROPUESTOS .................. 129 
APENDICE: GRABACIÓN Y CARGA DE PROGRAMAS ............. 135 
E. SAVE, VBRIPX LOAD. MERGE 20 ositindr ci era 133 

Z. Conservación Y Carga de Matices + daa 138 

3. Conservación y carga de gráficos y pantalla ............ ANA 140 

Hor ASS USA sd 141 
SOLUCIONARIO sardeasa crac ER ARO 143 


FE DE ERRATAS 


Pág. Línea Dice Debe decir 


e] 
25 EAN 3 veces; tras lo cual 
33 | 16| IF. C<30 THEN GOTO20| IF C<30 THEN GOTO 30 
30 línea siguiente 


39 IF a <= y THEN GOTO línea 
siguiente a ÑN 

40 LB línea línea siguiente a N 

ao | 12 a 

43 6 mostrará pantalla mostrará 

49 | 5|  ennúmero249 el número 249 

49 curvilíneos cuyas áreas 
aproximadas 

52 los números menores que 

64 | 22 menor que 0.5 

97 todos los datos de 

129 


160 | 1] — INTIN/IOTX)=0 | INTUN+05)/(101X)) =0 
170 60 PRINT : GOTO 10 
194 | -4| — IFAÍK,K)<>0 | IFA(,K)<>0 

2 INE UBA MING 

215 “JUNIO”, 30, 4 

216 BORDER 5: CLS 


Puede solicitar contrareembolso la 
cassette con los listados a: 


Ed. Paraninfo. Apdo. 23032 
MADRID 


TODO SOBRE EL BAS/C DeL SPECTRUM yY DeL 
SPECTRUM PLUS En UN UNICO VOLUMEN 


LA CRITICA HA DICHO: 


“A lo largo de sus bien estructurados 15 
capítulos se describen todas las instrucciones del 
BASIC de Sinclair de forma clara y con múltiples 
ejemplos...”. “Especialmente recomendado para los 
planes de educación y, por supuesto para matar el 
tiempo de forma productiva”. 


“Destacaremos el aspecto práctico puesto 
que tiene 250 programas propuestos y resueltos. 
Todos ellos han sido contrastados con el trabajo 
diario de las clases de Informática”. 


ejercicios propuestos. 
Puede solicitarla contra reembolso a: 


1.S.B.N. 84-398-1330-9 Depósito legal: Z. 500 - 1985 


Tiene a su disposición una CASSETTE con todos los listados de los 


Ed. PARANINFO. Apartado 23032. MADRID 


Fotografía de cubierta: DUCE 


